Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
    Frame1.Visible = True
    Frame2.Visible = False
    Frame3.Visible = False
Case 1
    Frame1.Visible = False
    Frame2.Visible = True
    Frame3.Visible = False
Case 2
    Frame1.Visible = False
    Frame2.Visible = False
    Frame3.Visible = True
Case Else
End Select
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "Juan"
Combo1.AddItem "Jose"
Combo1.AddItem "Matias"
Combo1.ListIndex = 0
End Sub