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
沒有留言:
張貼留言