1 buton ekleyin ve kodu yapıştırın
(butona bastığınızda pc kapanır !)
Kod:
Private Sub Command1_Click()
Shell ("C:\Windows\rundll32.exe user,exitwindows")
End Sub
Private Sub Form_Load()
Command1.Caption = "Kapat"
End Sub
(butona bastığınızda pc kapanır !)
Kod:
Private Sub Command1_Click()
Shell ("C:\Windows\rundll32.exe user,exitwindows")
End Sub
Private Sub Form_Load()
Command1.Caption = "Kapat"
End Sub
