VERSION 2.00
Begin Form Splitter 
   BackColor       =   &H00C0C0C0&
   Caption         =   "Resize controls using the colored splitter bars"
   Height          =   4185
   Left            =   1170
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   7725
   Top             =   1245
   Width           =   7905
   Begin VideoSoftElastic VSElastic1 
      Align           =   5  'Fill Container
      AutoSizeChildren=   2  'Uneven Horizontally
      BackColor       =   &H0000FF00&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   0
      Caption         =   ""
      CaptionPos      =   1  'Left Center
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      Height          =   3720
      Left            =   0
      Splitter        =   1  'Yes (with uneven spacing)
      TabIndex        =   0
      Top             =   0
      Width           =   7725
      Begin VideoSoftElastic VSElastic7 
         Align           =   0  'None
         AutoSizeChildren=   2  'Uneven Horizontally
         BackColor       =   &H0000FF00&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   2  'Raised Outlined
         BevelOuterWidth =   2
         BorderWidth     =   0
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   3720
         Left            =   0
         Splitter        =   1  'Yes (with uneven spacing)
         TabIndex        =   11
         Top             =   0
         Width           =   5220
         Begin VideoSoftElastic VSElastic2 
            Align           =   0  'None
            AutoSizeChildren=   4  'Uneven Vertically
            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          =   3720
            Left            =   0
            Splitter        =   0  'No
            TabIndex        =   12
            Top             =   0
            Width           =   2565
            Begin DirListBox Dir1 
               Height          =   2955
               Left            =   90
               TabIndex        =   13
               Top             =   495
               Width           =   2385
            End
            Begin DriveListBox Drive1 
               Height          =   315
               Left            =   90
               TabIndex        =   14
               Top             =   90
               Width           =   2385
            End
         End
         Begin VideoSoftElastic VSElastic3 
            Align           =   0  'None
            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          =   3720
            Left            =   2655
            Splitter        =   0  'No
            TabIndex        =   15
            Top             =   0
            Width           =   2565
            Begin FileListBox File1 
               Height          =   3540
               Left            =   90
               TabIndex        =   16
               Top             =   90
               Width           =   2385
            End
         End
      End
      Begin VideoSoftElastic VSElastic4 
         Align           =   0  'None
         AutoSizeChildren=   4  'Uneven Vertically
         BackColor       =   &H0000FF00&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   2  'Raised Outlined
         BevelOuterWidth =   2
         BorderWidth     =   0
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   3720
         Left            =   5310
         Splitter        =   1  'Yes (with uneven spacing)
         TabIndex        =   1
         Top             =   0
         Width           =   2415
         Begin VideoSoftElastic VSElastic6 
            Align           =   0  'None
            AutoSizeChildren=   3  'Even Vertically
            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          =   2985
            Left            =   0
            Splitter        =   0  'No
            TabIndex        =   6
            Top             =   0
            Width           =   2415
            Begin CommandButton Command1 
               Caption         =   "&Colors"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   630
               Index           =   0
               Left            =   90
               TabIndex        =   10
               Top             =   90
               Width           =   2235
            End
            Begin CommandButton Command1 
               Caption         =   "Tile &Horizontally"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   630
               Index           =   1
               Left            =   90
               TabIndex        =   9
               Top             =   810
               Width           =   2235
            End
            Begin CommandButton Command1 
               Caption         =   "Tile &Vertically"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   630
               Index           =   2
               Left            =   90
               TabIndex        =   8
               Top             =   1530
               Width           =   2235
            End
            Begin CommandButton Command1 
               Caption         =   "&Fonts"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   645
               Index           =   3
               Left            =   90
               TabIndex        =   7
               Top             =   2250
               Width           =   2235
            End
         End
         Begin VideoSoftElastic VSElastic5 
            Align           =   0  'None
            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          =   645
            Left            =   0
            Splitter        =   0  'No
            TabIndex        =   2
            Top             =   3075
            Width           =   2415
            Begin CommandButton Command1 
               Caption         =   "A"
               Height          =   465
               Index           =   6
               Left            =   90
               TabIndex        =   5
               Top             =   90
               Width           =   675
            End
            Begin CommandButton Command1 
               Caption         =   "B"
               Height          =   465
               Index           =   5
               Left            =   855
               TabIndex        =   4
               Top             =   90
               Width           =   675
            End
            Begin CommandButton Command1 
               Caption         =   "C"
               Height          =   465
               Index           =   4
               Left            =   1620
               TabIndex        =   3
               Top             =   90
               Width           =   705
            End
         End
      End
   End
End
Option Explicit

Sub Command1_Click (Index As Integer)
  Dim newcolor&
  Select Case Index

    Case 0  'Change to random colors
      newcolor = QBColor(Rnd * 15)
      VSelastic1.BackColor = newcolor
      VSelastic4.BackColor = newcolor
      Vselastic7.BackColor = newcolor

    Case 1  'Tile Vertically
      Vselastic7.AutoSizeChildren = 3
      Vselastic7.Refresh
      Vselastic7.AutoSizeChildren = 4

    Case 2  'Tile Horizontally
      Vselastic7.AutoSizeChildren = 1
      Vselastic7.Refresh
      Vselastic7.AutoSizeChildren = 2

    Case 3   'Fonts
      File1.FontSize = (File1.FontSize + 2) Mod 13
      Drive1.FontSize = (Drive1.FontSize + 2) Mod 13
      Dir1.FontSize = (Dir1.FontSize + 2) Mod 13
  End Select
End Sub

Sub Form_Resize ()
  VSelastic1.Top = 0
End Sub