[Standa]

Hi, try this:

Sub ImageButtonExitForm1_Click
    Form1.Close
End Sub

Sub Form1_Close
     If Msgbox ("Do you want to quit?",, cMsgBoxYesNo) = cNo Then
          Form1.CancelClose	
     End If
End Sub