Private Sub UserForm_Activate()
If ComboBox1 <> 1 Then
Me.Frame1.Visible = False
Me.OptionButton1.Visible = False
Me.OptionButton2.Visible = False
Me.OptionButton3.Visible = False
Else
Me.Frame1.Visible = True
Me.OptionButton1.Visible = True
Me.OptionButton2.Visible = True
Me.OptionButton3.Visible = True
End If
End Sub