SSTab用法

SSTab控件添加位置为：

Private Sub Form_Load()
SSTab1.Left = 0
SSTab1.Top = 0
SSTab1.Width = Me.ScaleWidth
SSTab1.Height = Me.ScaleHeight
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
  Form1.Caption = "0"
Case 1
  Form1.Caption = "1"
Case 2
  Form1.Caption = "2"
End Select
End Sub

运行效果图如下：