[Ghoghnus]

پروین جان شما وقتی بخواهید از برنامه خارج بشین Form_Unloadصدا زده میشه!اگه دکمه کلوز را بزنید موقع بسته شدن Form_Unloadفراخانی میشه!شما فقط یک بار دستور بسته شدن را نویسد توی Form_Unloadبعد از دکمه کلوز فقط فراخانی کنید!

کد:

Private Sub Command1_Click()
Call Form_Unload(1)
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

[parvin]

پروین جان شما وقتی بخواهید از برنامه خارج بشین Form_Unloadصدا زده میشه!اگه دکمه کلوز را بزنید موقع بسته شدن Form_Unloadفراخانی میشه!شما فقط یک بار دستور بسته شدن را نویسد توی Form_Unloadبعد از دکمه کلوز فقط فراخانی کنید!

کد:

Private Sub Command1_Click()
Call Form_Unload(1)
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

ممنون آقای ققنوس. من مشکلم رو خیلی وقت پیش حل کردم. بازم ممنون بابت جوابتون