Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim Rtvl
 Rtvl = MsgBox("Hello!! 你好嗎？", vbInformation Or vbYesNo, "打個招呼")
 If Rtvl = vbYes Then MsgBox("太好了")     '單行If then 敘述
 If Rtvl = vbNo Then MsgBox("想開一點")

End Sub