先把控件添加 caption属性设置好如果你要每个单选按钮单机都会弹出这个对话框的话 这样写 弹出的内容可以根据自己需要修改Private Sub Option1_Click()
MsgBox "答对一半,5分", , "bingo!"
End SubPrivate Sub Option2_Click()
MsgBox "答对一半,5分", , "bingo!"End SubPrivate Sub Option3_Click()
MsgBox "答对一半,5分", , "bingo!"
End SubPrivate Sub Option4_Click()
MsgBox "答对一半,5分", , "bingo!"
End SubPrivate Sub Option5_Click()
MsgBox "答对一半,5分", , "bingo!"
End Sub
温馨提示:内容为网友见解,仅供参考