Заполнение форм

[StasSv]

Здравствуйте,
подскажите пожайлуста как заполнить форну разными значениями при разных положениях переключателя пытался так но не получаеться:
Private Sub UserForm_Initialize()
If OptionButton1.Value = True Then
ComboBox1.AddItem "1 кв."
ComboBox1.AddItem "2 кв."
ComboBox1.AddItem "3 кв."
ComboBox1.AddItem "4 кв."
ElseIf OptionButton2.Value = False Then
ComboBox1.AddItem "1 полугодие"
ComboBox1.AddItem "2 полугодие"
End If
End Sub
заранее спасибо

[EducatedFool]

Например, так:

Private Sub OptionButton1_Click()
    FillCombo
End Sub
Private Sub OptionButton2_Click()
    FillCombo
End Sub
Sub FillCombo()
    Me.ComboBox1.Clear
    Select Case True
        Case Me.Controls("OptionButton" & CStr(1)).Value
            ComboBox1.AddItem "1 кв."
            ComboBox1.AddItem "2 кв."
            ComboBox1.AddItem "3 кв."
            ComboBox1.AddItem "4 кв."
        Case Me.Controls("OptionButton" & CStr(2)).Value
            ComboBox1.AddItem "1 полугодие"
            ComboBox1.AddItem "2 полугодие"
    End Select
End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.Clear
End Sub

Вместо Me.Controls("OptionButton" & CStr(1)).Value можно, конечно, написать me.OptionButton1, но первый вариант пригодится, если будете перебирать много OptionButton в цикле