Private Declare Function ExitWindowsEx Lib "user32" (byval kod as integer, byval aa as integer)as integer Private Sub Command1_Click() ExitWindowsEx 0,0 End Sub %magician% sevimli_9@hotmail.com