如题所述
就是单选钮被选中
例如:
Private Sub Command1_Click()
If Option1.Value = True Then
Label1.ForeColor = vbRed
Else
Label1.ForeColor = vbBlue
End If
Label1.FontBold = Check1.Value
Label1.FontItalic = Check2.Value
End Sub