你好,可以用以下代码:
Option Explicit
Private Sub OptionButton1_Change()
Me.OptionButton3.Enabled = Me.OptionButton1.Value
Me.OptionButton4.Enabled = Me.OptionButton1.Value
End Sub
Private Sub OptionButton4_Click()
End Sub
Private Sub OptionButton5_Click()
End Sub
Private Sub OptionButton6_Click()
End Sub