Private Sub Command1_Click()
Dim Msg, Style, Title, Response, MyString
' 定义信息。
Style = vbOKCancel + 48
Title = "立即关闭计算机" ' 定义标题。
Msg = "警告!计算机因嫌你太丑导致系统崩" & vbNewLine & _
"溃,请立即关闭计算机,否则有烧毁" & vbNewLine & _
"危险,谢谢合作!"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
End Sub
。