J
Jason Gatsby
try this... may be easier than another window / form...
..
..
..
Dim i_Rtn as Integer
i_Rtn = MsgBox("what do you want to do?", vbYesNoCancel +
vbQuestion + vbDefaultButton2, "MyAppName")
' Check the MsgBox return code.
Select Case i_Rtn
Case vbYes
' Continue running code
Case vbNo
' Stop running code
Case vbCancel
' Cancel the whole thing, and the user will start
again later
End Select
..
..
..
..
..
..
Dim i_Rtn as Integer
i_Rtn = MsgBox("what do you want to do?", vbYesNoCancel +
vbQuestion + vbDefaultButton2, "MyAppName")
' Check the MsgBox return code.
Select Case i_Rtn
Case vbYes
' Continue running code
Case vbNo
' Stop running code
Case vbCancel
' Cancel the whole thing, and the user will start
again later
End Select
..
..
..