Önce formunuza command1 butonu ekleyin. daha sonra aşağıdaki kodları yazınız..
Private Sub Command1_Click()
Shell ("C:\Windows\rundll32.exe user,exitwindows")
End Sub
Private Sub Form_Load()
Command1.Caption = "Kapat"
End Sub
____________________________________________________________
Ayrıntılı daha detaylı bilgi için e-mail adresime mail atabilirsiniz..
E-mail: Kayiserkan@yahoo.com