evb msgbox

Option Explicit
Private Sub Form_Click()
    Dim intReturn As Integer
   
    intReturn = MsgBox("請按下?一個按?", vbYesNoCancel, "傳回值測?")
   
   
    Select Case intReturn
   
        Case vbYes
           Print "你按下Yes?！"
        Case vbNo
           Print "你按下No?"
        Case vbCancel
           Print "你按下Cancel?"
   
    End Select
   
End Sub
Private Sub Form_OKClick()
    App.End
End Sub