一个vb的问题 高手进

请问如何让vb执行是显示一个窗口 有两个选项 比如 显示 你是天才还是白痴 下面有天才白痴两个选项 按天才 显示 你比天才还白痴 还有一个返回键
按白痴 显示你比白痴还天才 和一个返回键 谢谢
啊呀呀呀 怎么没人告诉我要

这不需要高手的 呵呵 很简单的基础题

Option Explicit

Private Sub Form_Load()
Show
Dim a As String
Print "你是天才还是白痴"
Do
a = InputBox("你是天才还是白痴","你是天才还是白痴")
Loop While Not a = "天才" And Not a = "白痴"
If a = "白痴" Then MsgBox "你比天才还白痴!!"
If a = "天才" Then MsgBox "你比白痴还天才!!"
End Sub

窗体代码
需要LABEL1 COMMAND1、2、3
Private Sub Command1_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = True
Label1.Caption = "你比天才还白痴"
End Sub

Private Sub Command2_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = True
Label1.Caption = "你比白痴还天才"
End Sub

Private Sub Command3_Click()
Command1.Visible = True
Command2.Visible = True
Command3.Visible = False
Label1.Caption = "你是天才还是白痴？"
End Sub