你单选按钮起不起作用。。。不起作用就是如下代码
Private Sub Command1_Click()
Text1.Text = "啥子"
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then
Text1.Text = Label1.Caption
End If
End Sub
If Option1.Value = True Then
Text1.Text = Label1.Caption
End If