界面上有一个combo控件，下拉菜单里面A和B两种不同选择。还有两个frame控件。当combo里面的内容是A时，frame1 显示，当combo里面的内容是B时，frame2 显示。
Private Sub Frame2_Click()
If Combo.Text = a  Then
 Frame1.Visible = True
End If
End Sub
这个程序不能实现这个功能，怎样实现呢？

Private Sub Combo1_Click()
Select Case Combo1.Text
  Case Is = "A"
    Frame2.Visible = False
    Frame1.Visible = True

  Case Is = "B"
    Frame1.Visible = False
    Frame2.Visible = True
End Select
End Sub

Private Sub Form_Load()

Combo1.AddItem "A"
Combo1.AddItem "B"
End Sub

[ 本帖最后由 lianyicq 于 2014-12-29 10:50 编辑 ]

谢谢亲  刚发完帖子就发现问题了  不过还是感谢你  就把分给你啦  谢谢啊