msgbox实例

实例一：

Private Sub Command5_Click()
Dim msg$, Style&, Title$, Help$, Ctxt&, Response&, MyString$
msg = "程序发生错误，继续？" '定义消息文本
Style = vbYesNo + vbCritical + vbDefaultButton2 '定义对话框样式
Title = "错误信息" '定义标题文本
Help = "Demo.hlp" '定义帮助文件
Ctxt = 1000 '定义帮助主题编号
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then '用户按下“是”按钮
    MyString = "Yes" '进行某些操作
Else '用户按下“否”按钮
    MyString = "No" '进行某些操作
End If

End Sub

运行如下：

 

实例二：

Private Sub Command1_Click()
 'msgbox "