我加了3个选项卡和3个Frame,代码如下:
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Index
 Case 1 Frame1.Visible = True
 Frame2.Visible = False
 Frame3.Visible = False
 Case 2 Frame1.Visible = False
 Frame2.Visible = True
 Frame3.Visible = False
 Case 3 Frame1.Visible = False
 Frame2.Visible = False
 Frame3.Visible = True
 End Select
End Sub
可是这样,第2个和第3个都不显示。要怎么做才行????