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