Немного про combobox - VB

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

Задача: при выборе определенной строки из combobox должно появляться соответственно 1, 2 или 3 рамки Предварительно на форме делаю рамки невидимыми

Private Sub Combo1_click()
If Combo1.ListIndex = 0 Then
Frame1.Visible = True And Frame2.Visible = False And Frame3.Visible = False
    ElseIf Combo1.ListIndex = 1 Then
    Frame1.Visible = True And Frame2.Visible = True And Frame3.Visible = False
        ElseIf Combo1.ListIndex = 2 Then
        Frame1.Visible = True And Frame2.Visible = True And Frame3.Visible = True
End If
End Sub

В итоге ничего не происходит. Тоже самое если писать Private Sub Combo1_Change()

Решение задачи: «Немного про combobox»

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

                            Private Sub Combo1_Click()
    Select Case Combo1.ListIndex
        Case 0
            Call FrameShow(True, False, False)
        Case 1
            Call FrameShow(True, True, False)
        Case 2
            Call FrameShow(True, True, True)
    End Select
End Sub
 
Function FrameShow(bFrame1 As Boolean, bFrame2 As Boolean, bFrame3 As Boolean) As Long
    Frame1.Visible = bFrame1
    Frame2.Visible = bFrame2
    Frame3.Visible = bFrame3
End Function
                        