Как организовать цикл? Приведенный код срабатывает лишь раз - VB

Формулировка задачи:

Здравствуйте, уважаемые специалисты. Есть код программы:

If Check_pos1.Value = 1 Then
Label_pos1.Visible = True
n = Combo1.Text
Select Case n
 Case "ГЂ.1"
Label_1.Caption = 1110
Picture1_50.Visible = False
Picture1_70.Visible = True
Picture1_40x50.Visible = False
 Case "ГЂ.2"
Label_1.Caption = 1390
Picture1_50.Visible = True
Picture1_70.Visible = False
Picture1_40x50.Visible = False
 Case "ГЂ.3"
Label_1.Caption = 1490
Picture1_50.Visible = True
Picture1_70.Visible = False
Picture1_40x50.Visible = False

Эта программа работает лишь один раз. При выборе одного варианта появляется соответствующая картинка, а при попытке изменить свой выбор компилятор VB6 указывает на ошибку "Out of memory" на той строке, где расположен False. Получается, что компилятору памяти мало или как? Подскажите, пожалуйста, как исправить ошибку. Спасибо.

Решение задачи: «Как организовать цикл? Приведенный код срабатывает лишь раз»

textual
                            Листинг программы 
                        

                             Option Explicit
 
Private Sub Command1_Click()
    Dim n As String
    If Check_pos1.Value = 1 Then
       Label_pos1.Visible = True
       n = Combo1.Text
       Select Case n
              Case "А.1"
                   Label_1.Caption = "1110"
                   Picture1_50.Visible = False
                   Picture1_70.Visible = True
                   Picture1_40x50.Visible = False
              Case "А.2"
                   Label_1.Caption = "1390"
                   Picture1_50.Visible = True
                   Picture1_70.Visible = False
                   Picture1_40x50.Visible = False
              Case "А.3"
                   Label_1.Caption = "1490"
                   Picture1_50.Visible = False
                   Picture1_70.Visible = False
                   Picture1_40x50.Visible = True
       End Select
    End If
End Sub
 
Private Sub Form_Load()
    Combo1.AddItem "А.1"
    Combo1.AddItem "А.2"
    Combo1.AddItem "А.3"
End Sub
                        