
09-11-2004, 01:10 PM
|
 |
Retread
Retired Moderator * Expert *
|
|
Join Date: Sep 2002
Location: Austin, Texas
Posts: 6,742
|
|
Ah.
Code:
Dim mbrResult As VbMessageBoxResult
mbrResult = MsgBox("The installed version and the on-disk version are the " & _
"same, are you sure you would like to install this application again?", _
vbYesNoCancel + vbQuestion, "Are you sure?")
Select Case mbrResult
Case vbYes
'User selected "YES"
Case vbNo
'User selected "NO"
Case vbCancel
'User selected "CANCEL"
Case Else
'Something's wrong, this wasn't an option to select!!!
End Select
|
|