VERSION 2.00
Begin Form IndexTab 
   BackColor       =   &H00C0C0C0&
   Caption         =   "IndexTab Demo"
   Height          =   6015
   Left            =   1785
   LinkTopic       =   "Form2"
   ScaleHeight     =   5550
   ScaleWidth      =   7485
   Top             =   810
   Width           =   7665
   Begin VideoSoftElastic VSElastic1 
      Align           =   5  'Fill Container
      AutoSizeChildren=   1  'Even Horizontally
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   1  'Left Center
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      Height          =   4995
      Left            =   0
      Splitter        =   0  'No
      TabIndex        =   0
      Top             =   0
      Width           =   7485
      Begin VideoSoftIndexTab VSIndexTab1 
         AutoScroll      =   -1  'True
         AutoSwitch      =   -1  'True
         BackColor       =   &H00C0C0C0&
         BackTabColor    =   &H00FFFFFF&
         Caption         =   " Tab 1| Tab 2 | Tab 3 "
         CurrTab         =   0
         FirstTab        =   0
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Arial"
         FontSize        =   13.5
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00000000&
         FrontTabColor   =   &H00C0C0C0&
         Height          =   4815
         Index           =   0
         Left            =   90
         Position        =   2  'Left (True Type fonts only)
         Style           =   2  'Rounded
         TabIndex        =   1
         Top             =   90
         Width           =   7305
         Begin TextBox Text2 
            BorderStyle     =   0  'None
            Height          =   1500
            Left            =   990
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   4
            Text            =   "Plain text box - Text2"
            Top             =   2655
            Width           =   5325
         End
         Begin VideoSoftElastic VSElastic2 
            Align           =   0  'None
            AutoSizeChildren=   2  'Uneven Horizontally
            BackColor       =   &H00C0C0C0&
            BevelInner      =   3  'Inset
            BevelInnerWidth =   1
            BevelOuter      =   0  'None
            BevelOuterWidth =   2
            BorderWidth     =   6
            Caption         =   ""
            CaptionPos      =   1  'Left Center
            ChildSpacing    =   6
            FloodColor      =   &H000000C0&
            FloodDirection  =   0  'None
            FloodPercent    =   0
            Height          =   2040
            Left            =   900
            Splitter        =   0  'No
            TabIndex        =   2
            Top             =   315
            Width           =   5685
            Begin TextBox Text1 
               BorderStyle     =   0  'None
               Height          =   1860
               Left            =   90
               MultiLine       =   -1  'True
               ScrollBars      =   2  'Vertical
               TabIndex        =   3
               Text            =   "Text Box inside an elastic box"
               Top             =   90
               Width           =   5505
            End
         End
      End
   End
   Begin VideoSoftElastic StatusBar 
      Align           =   2  'Align Bottom
      AutoSizeChildren=   1  'Even Horizontally
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   0  'None
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   1  'Left Center
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      Height          =   555
      Left            =   0
      Splitter        =   0  'No
      TabIndex        =   5
      Top             =   4995
      Width           =   7485
      Begin CommandButton Button 
         BackColor       =   &H00C0C0C0&
         Caption         =   "&ForeColor"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Index           =   3
         Left            =   5625
         TabIndex        =   9
         Top             =   90
         Width           =   1770
      End
      Begin CommandButton Button 
         BackColor       =   &H00C0C0C0&
         Caption         =   "&BackTabColor"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Index           =   2
         Left            =   3780
         TabIndex        =   8
         Top             =   90
         Width           =   1755
      End
      Begin CommandButton Button 
         BackColor       =   &H00C0C0C0&
         Caption         =   "&Style"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Index           =   1
         Left            =   1935
         TabIndex        =   7
         Top             =   90
         Width           =   1755
      End
      Begin CommandButton Button 
         BackColor       =   &H00C0C0C0&
         Caption         =   "&Position"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Index           =   0
         Left            =   90
         TabIndex        =   6
         Top             =   90
         Width           =   1755
      End
   End
End
Option Explicit

Sub Button_Click (Index As Integer)
  Select Case Index
    Case 0
       VSindextab1(0).Position = (VSindextab1(0).Position + 1) Mod 4
    Case 1
       VSindextab1(0).Style = (VSindextab1(0).Style + 2) Mod 4
       VSindextab1(0).Refresh
    Case 2
       VSindextab1(0).BackTabColor = QBColor(Rnd * 15)
    Case 3
       VSindextab1(0).ForeColor = QBColor(Rnd * 15)
       VSindextab1(0).Refresh
  End Select
End Sub

Sub Form_Resize ()
  vselastic1.Top = 0
End Sub

Sub VSIndexTab1_GotFocus (Index As Integer)
  button(0).SetFocus
End Sub