vb中怎样把单选框或复选框对应的选项在文本框中显示

1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上添加两个Option控件、两个Check控件和一个Text控件，Option控件的名称分别命名为单选A-1和单选A-2，Check控件的名称分别命名为复选B-1和复选B-2。

3、在界面上单击右键，选择查看代码，进入代码编辑界面；
4、输入如下代码：

Private Sub Check1_Click()
If Check1.Value = 1 Then
    Text1.Text = Check1.Caption
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
    Text1.Text = Check2.Caption
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
    Text1.Text = Option1.Caption
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
    Text1.Text = Option2.Caption
End If
End Sub

5、运行工程，选中单选框或者复选框，可以在Text文本框中看到单选框或者是复选框的名称。