当MsgBox关闭时做点什么

Question

我正在NS BASIC / CE中创建一个向用户显示警告的程序，但是当用户关闭MsgBox（单击确定）时，我希望应用程序执行AfterWarn Sub 。我怎么能这样做？

Answer 1

抱歉，我读错了 但她：

Dim varResponse As VbMsgBoxResult
vResult = Msgbox("Are you sure you wanted to make this change?.",vbOkCancel)
If result = vbOk Then
    AfterWarn()
Else
   'Do something else?
End if