Aralık
11th 2007
Posted under Visual Basic
Önce formunuza command1 butonu ekleyiniz ve 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