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 !..