Private Sub Tabstrip1_Click()
If Tabstrip1.SelectedItem.Index = 1 Then
Frame2.Visible = False
Frame3.Visible = False
Frame1.Visible = True
End If
If Tabstrip1.SelectedItem.Index = 2 Then
Frame1.Visible = False
Frame3.Visible = False
Frame2.Visible = True
End If
If Tabstrip1.SelectedItem.Index = 3 Then
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = True
End If
End Sub