Private Sub Command1_Click()

MsgBox "", vbOKCancel, "退出"

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

End Sub