Formunuzun üzerine 1 command buton ekleyin ve sonra kod pencersi için aşağıdaki örnek kodları ekleyin.
Private Sub Command1_Click()
Shell ("C:Windowsrundll32.exe user,exitwindows")
End Sub
Private Sub Form_Load()
Command1.Caption = "Kapat"
End Sub
İlk yorumu siz yazın !..