[Amin_Mansouri]

حتما یه مقاله وی بی بخون
یک باتن بزار روی فرم بزار بگیم دکمه exit باشه و یک کد هم برای خروج از برنامه :
اینها تو فرمت بنویس :

کد:

Private Sub Command1_Click()
Dim b As Integer
b = MsgBox("Parvin", vbYesNo)
If (b) = "6" Then End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim a As Integer
a = MsgBox("Parvin", vbYesNo)
If (a) = "6" Then
End
Else
Cancel = -1
End If
End Sub