Private Sub Command1_Click()

MsgBox "", vbOKCancel, "退出"

If vbOKCancel = vbOK Then Print "确定" Else Print "取消" End If

End Sub

纠正错误 ：首先 vbOKCancel 不是一个变量 可修改为 if MsgBox "", vbOKCancel, "退出"=vbok then Print "确定" Else Print "取消" 或者 a=MsgBox "", vbOKCancel, "退出" If not a= 2Then Print "确定" Else Print "取消" End If

[此贴子已经被作者于2005-9-20 15:16:14编辑过]

Dim rVal As VbMsgBoxResult

rVal = MsgBox("", vbOKCancel, "退出") If rVal = vbOK Then Print "确定" Else Print "取消" End If

谢谢了