close the window

[jeffrey16]

can anyone here plz help me with my porblem..

im using VB6, i want to display a message whenever the user will close the window..]
can anyone teach me how to code it..

[selvaganapathy]

Hi, Try to Write MessageBox Coding in Form_QueryUnload event or Form_Unload Event. This is will show the Message whenever user close the Window

[abu taher]

Private Sub Form_Unload(Cancel As Integer)
Dim msg
msg = "Do you want to Exit? "
reply = MsgBox(msg, vbExclamation + vbYesNo)
Select Case reply
Case vbNo
Cancel = -1
Case vbYes
End
End Select
End Sub

[jeffrey16]

tnx 4 the help, it realy works

[jireh]

Private Sub Form_Unload(Cancel As Integer)
     Dim msg

     msg = "Do you want to Exit? "
     reply = MsgBox(msg, vbExclamation + vbYesNo)

     Select Case reply
          Case vbNo
                   Cancel = -1
          Case vbYes
                   End
          End Select
End Sub

Make it short...

Private Sub Form_Unload(Cancel As Integer)
     If MsgBox("Do you want to exit?", vbQuestion + vbYesNo) = vbNo Then
               Cancel = -1
     End If
End Sub

[abu taher]

have you any other question? If not then mark it solved.