Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tabframe/tabdemo.frm

Visual Basic Form | 1995-09-06 | 60.5 KB | 1,620 lines

VERSION 2.00
Begin Form frmTabDemo
   BackColor       =   &H00C0C0C0&
   Caption         =   "TabFrame Demo V1.4"
   ClientHeight    =   5280
   ClientLeft      =   930
   ClientTop       =   2820
   ClientWidth     =   7890
   Height          =   5685
   Left            =   870
   LinkTopic       =   "Form1"
   ScaleHeight     =   5280
   ScaleWidth      =   7890
   Top             =   2475
   Width           =   8010
   Begin CommandButton cmdHelp
      Caption         =   "Help"
      Height          =   375
      Left            =   6540
      TabIndex        =   109
      Top             =   4800
      Width           =   1155
   End
   Begin GSTabFrame GSTabFrame1
      BackColor       =   &H00C0C0C0&
      BufferDisplay   =   -1  'True
      Caption         =   "&General"
      FocusTab        =   -1  'True
      Height          =   4275
      Index           =   0
      Left            =   120
      TabGroup        =   0
      TabIndex        =   1
      TabNumber       =   0
      Top             =   420
      Width           =   7635
      Begin Label Label23
         BackStyle       =   0  'Transparent
         Caption         =   "Switching between tabs in design mode is made simple through the use of the right mouse button."
         Height          =   435
         Left            =   180
         TabIndex        =   5
         Top             =   3120
         Width           =   7095
      End
      Begin Label Label22
         BackStyle       =   0  'Transparent
         Caption         =   "If you have any comments or suggestions concerning this control then please contact Graham Cockell (Compuserve ID 100113, 2774) via e-mail or on the Compuserve MSBASIC forum."
         Height          =   615
         Left            =   180
         TabIndex        =   4
         Top             =   2400
         Width           =   7035
      End
      Begin Label Label21
         BackStyle       =   0  'Transparent
         Caption         =   "This demonstration shows some of the capabilities of the TabFrame control including various display styles and the ability to nest one set of TabFrame controls within another - see the Property and Event tabs."
         Height          =   615
         Left            =   180
         TabIndex        =   3
         Top             =   1680
         Width           =   7155
      End
      Begin Label Label20
         BackStyle       =   0  'Transparent
         Caption         =   "This product is distributed as shareware and registration details are provided in this demonstration and in the help file."
         Height          =   375
         Left            =   180
         TabIndex        =   6
         Top             =   3660
         Width           =   7155
      End
      Begin Label Label19
         BackStyle       =   0  'Transparent
         Caption         =   "The TabFrame control allows you to quikly and easily build a tabbed dialog style user interface, as popularised in Microsoft Word V6.0, using Visual Basic. The TabFrame control handles all the details of which tab should be visible as well as providing a number of other useful features such as 3D effects for child controls."
         Height          =   795
         Left            =   180
         TabIndex        =   2
         Top             =   780
         Width           =   7155
      End
   End
   Begin GSTabFrame GSTabFrame1
      BackColor       =   &H00C0C0C0&
      BufferDisplay   =   -1  'True
      Caption         =   "&Events"
      FocusTab        =   -1  'True
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4275
      Index           =   2
      Left            =   120
      TabGroup        =   1
      TabIndex        =   76
      TabNumber       =   1
      Top             =   420
      Width           =   7635
      Begin GSTabFrame GSTabFrame3
         ActiveColor     =   &H0080FFFF&
         BackColor       =   &H00C0C0C0&
         Caption         =   "Custom"
         FocusTab        =   -1  'True
         Height          =   3075
         InactiveColor   =   &H00FFFF80&
         Index           =   0
         Left            =   360
         Position        =   1  'Bottom
         Style           =   0  '2D
         TabGroup        =   0
         TabIndex        =   77
         TabNumber       =   0
         Top             =   900
         Width           =   6795
         Begin ComboBox cboEventName
            Height          =   300
            Left            =   1620
            Sorted          =   -1  'True
            Style           =   2  'Dropdown List
            TabIndex        =   79
            Top             =   180
            Width           =   4875
         End
         Begin TextBox txtEventDesc
            BackColor       =   &H00FFFFFF&
            Enabled         =   0   'False
            Height          =   1875
            Left            =   1620
            MultiLine       =   -1  'True
            TabIndex        =   81
            Text            =   "txtEventDesc"
            Top             =   660
            Width           =   4875
         End
         Begin Label Label1
            BackStyle       =   0  'Transparent
            Caption         =   "Event:"
            Height          =   195
            Index           =   2
            Left            =   240
            TabIndex        =   78
            Top             =   240
            Width           =   1095
         End
         Begin Label Label1
            BackStyle       =   0  'Transparent
            Caption         =   "Description:"
            Height          =   195
            Index           =   3
            Left            =   240
            TabIndex        =   80
            Top             =   660
            Width           =   1095
         End
      End
      Begin GSTabFrame GSTabFrame3
         ActiveColor     =   &H0080FFFF&
         BackColor       =   &H00C0C0C0&
         Caption         =   "Standard"
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         InactiveColor   =   &H00FFFF80&
         Index           =   1
         Left            =   360
         Position        =   1  'Bottom
         Style           =   0  '2D
         TabGroup        =   0
         TabIndex        =   82
         TabNumber       =   1
         Top             =   900
         Width           =   6795
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "LostFocus"
            Height          =   195
            Index           =   8
            Left            =   2580
            TabIndex        =   89
            Top             =   840
            Width           =   975
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "GotFocus"
            Height          =   195
            Index           =   7
            Left            =   2580
            TabIndex        =   88
            Top             =   600
            Width           =   915
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "MouseMove"
            Height          =   195
            Index           =   6
            Left            =   5160
            TabIndex        =   92
            Top             =   600
            Width           =   1275
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "MouseUp"
            Height          =   195
            Index           =   5
            Left            =   3780
            TabIndex        =   91
            Top             =   840
            Width           =   1335
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "MouseDown"
            Height          =   195
            Index           =   4
            Left            =   3780
            TabIndex        =   90
            Top             =   600
            Width           =   1275
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "DragOver"
            Height          =   195
            Index           =   3
            Left            =   1440
            TabIndex        =   87
            Top             =   840
            Width           =   855
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "DragDrop"
            Height          =   195
            Index           =   2
            Left            =   1440
            TabIndex        =   86
            Top             =   600
            Width           =   855
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "DblClick"
            Height          =   195
            Index           =   1
            Left            =   480
            TabIndex        =   85
            Top             =   840
            Width           =   855
         End
         Begin Label Label7
            BackStyle       =   0  'Transparent
            Caption         =   "Click"
            Height          =   195
            Index           =   0
            Left            =   480
            TabIndex        =   84
            Top             =   600
            Width           =   855
         End
         Begin Label Label6
            BackStyle       =   0  'Transparent
            Caption         =   "The following standard events are supported by the TabFrame control :-"
            Height          =   195
            Left            =   180
            TabIndex        =   83
            Top             =   180
            Width           =   6495
         End
      End
   End
   Begin GSTabFrame GSTabFrame1
      BackColor       =   &H00C0C0C0&
      BufferDisplay   =   -1  'True
      Caption         =   "&Registration"
      FocusTab        =   -1  'True
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4275
      Index           =   4
      Left            =   120
      TabGroup        =   0
      TabIndex        =   7
      TabNumber       =   1
      Top             =   420
      Width           =   7635
      Begin Label Label26
         BackStyle       =   0  'Transparent
         Caption         =   "Registered versions will be sent out by e-mail unless otherwise specified."
         Height          =   255
         Left            =   300
         TabIndex        =   18
         Top             =   3900
         Width           =   6915
      End
      Begin Label Label17
         BackStyle       =   0  'Transparent
         Caption         =   "ENGLAND"
         Height          =   195
         Left            =   1200
         TabIndex        =   17
         Top             =   3600
         Width           =   3255
      End
      Begin Label Label16
         BackStyle       =   0  'Transparent
         Caption         =   "Derbyshire DE6 1PR"
         Height          =   195
         Left            =   1200
         TabIndex        =   16
         Top             =   3420
         Width           =   3255
      End
      Begin Label Label15
         BackStyle       =   0  'Transparent
         Caption         =   "Ashbourne"
         Height          =   195
         Left            =   1200
         TabIndex        =   15
         Top             =   3240
         Width           =   3255
      End
      Begin Label Label14
         BackStyle       =   0  'Transparent
         Caption         =   "Hognaston"
         Height          =   195
         Left            =   1200
         TabIndex        =   14
         Top             =   3060
         Width           =   3255
      End
      Begin Label Label13
         BackStyle       =   0  'Transparent
         Caption         =   "Fellsgarth House"
         Height          =   195
         Left            =   1200
         TabIndex        =   13
         Top             =   2880
         Width           =   3255
      End
      Begin Label Label12
         BackStyle       =   0  'Transparent
         Caption         =   "GC Consulting Services Ltd"
         Height          =   195
         Left            =   1200
         TabIndex        =   12
         Top             =   2700
         Width           =   3255
      End
      Begin Label Label11
         BackStyle       =   0  'Transparent
         Caption         =   "2) By sending a cheque or money order for
25 to :"
         Height          =   255
         Left            =   240
         TabIndex        =   11
         Top             =   2400
         Width           =   6795
      End
      Begin Label Label10
         BackStyle       =   0  'Transparent
         Caption         =   "1) Through the SWREG forum on Compuserve. The fee is $39.95 and the registration ID is 2018."
         Height          =   435
         Left            =   240
         TabIndex        =   10
         Top             =   1920
         Width           =   6915
      End
      Begin Label Label9
         BackStyle       =   0  'Transparent
         Caption         =   "If you find the TabFrame control useful you can receive a full version by registering as follows :"
         Height          =   435
         Left            =   240
         TabIndex        =   9
         Top             =   1440
         Width           =   6855
      End
      Begin Label Label8
         BackStyle       =   0  'Transparent
         Caption         =   "This demonstration includes a fully functional version of the TabFrame control which may be used in the Visual Basic development environment only. It cannot be used in conjunction with an EXE file produced from Visual Basic."
         Height          =   615
         Left            =   240
         TabIndex        =   8
         Top             =   780
         Width           =   7035
      End
   End
   Begin GSTabFrame GSTabFrame1
      BackColor       =   &H00C0C0C0&
      BufferDisplay   =   -1  'True
      Caption         =   "&Properties"
      FocusTab        =   -1  'True
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4275
      Index           =   1
      Left            =   120
      TabGroup        =   1
      TabIndex        =   40
      TabNumber       =   0
      Top             =   420
      Width           =   7635
      Begin GSTabFrame GSTabFrame2
         ActiveColor     =   &H0080FFFF&
         BackColor       =   &H00C0C0C0&
         Caption         =   "Custom"
         FocusTab        =   -1  'True
         Height          =   3075
         InactiveColor   =   &H00FFFF80&
         Index           =   0
         Left            =   360
         Position        =   1  'Bottom
         Style           =   0  '2D
         TabGroup        =   0
         TabIndex        =   41
         TabNumber       =   0
         Top             =   900
         Width           =   6795
         Begin TextBox txtpropDesc
            BackColor       =   &H00FFFFFF&
            Enabled         =   0   'False
            Height          =   1875
            Left            =   1620
            MultiLine       =   -1  'True
            TabIndex        =   45
            Text            =   "txtPropDesc"
            Top             =   660
            Width           =   4875
         End
         Begin ComboBox cboPropName
            Height          =   300
            Left            =   1620
            Sorted          =   -1  'True
            Style           =   2  'Dropdown List
            TabIndex        =   43
            Top             =   180
            Width           =   4875
         End
         Begin Label Label1
            BackStyle       =   0  'Transparent
            Caption         =   "Description:"
            Height          =   195
            Index           =   1
            Left            =   240
            TabIndex        =   44
            Top             =   660
            Width           =   1095
         End
         Begin Label Label1
            BackStyle       =   0  'Transparent
            Caption         =   "Property:"
            Height          =   195
            Index           =   0
            Left            =   240
            TabIndex        =   42
            Top             =   240
            Width           =   1095
         End
      End
      Begin GSTabFrame GSTabFrame2
         ActiveColor     =   &H0080FFFF&
         BackColor       =   &H00C0C0C0&
         Caption         =   "Standard"
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         InactiveColor   =   &H00FFFF80&
         Index           =   1
         Left            =   360
         Position        =   1  'Bottom
         Style           =   0  '2D
         TabGroup        =   0
         TabIndex        =   46
         TabNumber       =   1
         Top             =   900
         Width           =   6795
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "TabStop"
            Height          =   195
            Index           =   24
            Left            =   4320
            TabIndex        =   70
            Top             =   1440
            Width           =   915
         End
         Begin Label Label5
            BackStyle       =   0  'Transparent
            Caption         =   "Several of these properties are synchronised across the TabFrame controls which make up a TabSet so that changing the property value for any one of the controls automatically changes the value for all the others."
            Height          =   555
            Left            =   180
            TabIndex        =   75
            Top             =   2040
            Width           =   6495
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "FontStrikethru"
            Height          =   195
            Index           =   29
            Left            =   1560
            TabIndex        =   59
            Top             =   1680
            Width           =   1275
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "FontSize"
            Height          =   195
            Index           =   28
            Left            =   1560
            TabIndex        =   58
            Top             =   1440
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Width"
            Height          =   195
            Index           =   23
            Left            =   5700
            TabIndex        =   74
            Top             =   960
            Width           =   675
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Visible"
            Height          =   195
            Index           =   22
            Left            =   5700
            TabIndex        =   73
            Top             =   720
            Width           =   795
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Top"
            Height          =   195
            Index           =   21
            Left            =   5700
            TabIndex        =   72
            Top             =   480
            Width           =   975
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Tag"
            Height          =   195
            Index           =   20
            Left            =   4320
            TabIndex        =   71
            Top             =   1680
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "TabIndex"
            Height          =   195
            Index           =   19
            Left            =   4320
            TabIndex        =   69
            Top             =   1200
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Parent"
            Height          =   195
            Index           =   18
            Left            =   4320
            TabIndex        =   68
            Top             =   960
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "MousePointer"
            Height          =   195
            Index           =   17
            Left            =   4320
            TabIndex        =   67
            Top             =   720
            Width           =   1275
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Left"
            Height          =   195
            Index           =   16
            Left            =   4320
            TabIndex        =   66
            Top             =   480
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Index"
            Height          =   195
            Index           =   15
            Left            =   2940
            TabIndex        =   65
            Top             =   1680
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Hwnd"
            Height          =   195
            Index           =   14
            Left            =   2940
            TabIndex        =   64
            Top             =   1440
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "HelpContextID"
            Height          =   195
            Index           =   13
            Left            =   2940
            TabIndex        =   63
            Top             =   1200
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Height"
            Height          =   195
            Index           =   12
            Left            =   2940
            TabIndex        =   62
            Top             =   960
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "ForeColor"
            Height          =   195
            Index           =   11
            Left            =   2940
            TabIndex        =   61
            Top             =   720
            Width           =   1095
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "FontUnderline"
            Height          =   195
            Index           =   10
            Left            =   2940
            TabIndex        =   60
            Top             =   480
            Width           =   1275
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "DragMode"
            Height          =   195
            Index           =   9
            Left            =   300
            TabIndex        =   53
            Top             =   1680
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "DragIcon"
            Height          =   195
            Index           =   8
            Left            =   300
            TabIndex        =   52
            Top             =   1440
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "FontName"
            Height          =   195
            Index           =   7
            Left            =   1560
            TabIndex        =   57
            Top             =   1200
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "FontItalic"
            Height          =   195
            Index           =   6
            Left            =   1560
            TabIndex        =   56
            Top             =   960
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "FontBold"
            Height          =   195
            Index           =   5
            Left            =   1560
            TabIndex        =   55
            Top             =   720
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Enabled"
            Height          =   195
            Index           =   4
            Left            =   1560
            TabIndex        =   54
            Top             =   480
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "ClipControls"
            Height          =   195
            Index           =   3
            Left            =   300
            TabIndex        =   51
            Top             =   1200
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "Caption"
            Height          =   195
            Index           =   2
            Left            =   300
            TabIndex        =   50
            Top             =   960
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "BorderStyle"
            Height          =   195
            Index           =   1
            Left            =   300
            TabIndex        =   49
            Top             =   720
            Width           =   1215
         End
         Begin Label Label4
            BackStyle       =   0  'Transparent
            Caption         =   "BackColor"
            Height          =   195
            Index           =   0
            Left            =   300
            TabIndex        =   48
            Top             =   480
            Width           =   1215
         End
         Begin Label Label3
            BackStyle       =   0  'Transparent
            Caption         =   "The following standard properties are supported by the TabFrame control :-"
            Height          =   195
            Left            =   180
            TabIndex        =   47
            Top             =   180
            Width           =   6495
         End
      End
   End
   Begin GSTabFrame GSTabFrame1
      BackColor       =   &H00C0C0C0&
      BufferDisplay   =   -1  'True
      Caption         =   "&ToolTips"
      FocusTab        =   -1  'True
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4275
      Index           =   5
      Left            =   120
      TabGroup        =   1
      TabIndex        =   93
      TabNumber       =   2
      Top             =   420
      Width           =   7635
      Begin PictureBox picFlag
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   1035
         Left            =   600
         ScaleHeight     =   1035
         ScaleWidth      =   5835
         TabIndex        =   106
         Top             =   2820
         Width           =   5835
         Begin Label Label27
            BackStyle       =   0  'Transparent
            Caption         =   "Move the mouse over a tab and pause - the Country name will appear next to the cursor in a popup window. This is an example of the ToolTip control working with the TabFrame control. For more information about the ToolTip control click on the ToolTip icon in the bottom corner of this tab."
            Height          =   975
            Left            =   180
            TabIndex        =   107
            Top             =   60
            Width           =   5535
         End
      End
      Begin GSToolTip GSToolTip1
         BackColor       =   &H0080FFFF&
         Left            =   120
         Shadow          =   3
         ToolTips        =   2  'Use Tag as Default
         Top             =   780
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         Height          =   3075
         Index           =   0
         Left            =   480
         Picture         =   TABDEMO.FRX:0000
         TabGroup        =   0
         TabIndex        =   94
         TabNumber       =   0
         Tag             =   "United Kingdom"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   11
         Left            =   480
         Picture         =   TABDEMO.FRX:0302
         TabGroup        =   2
         TabIndex        =   105
         TabNumber       =   3
         Tag             =   "Denmark"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   7
         Left            =   480
         Picture         =   TABDEMO.FRX:0604
         TabGroup        =   1
         TabIndex        =   101
         TabNumber       =   3
         Tag             =   "Japan"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   10
         Left            =   480
         Picture         =   TABDEMO.FRX:0906
         TabGroup        =   2
         TabIndex        =   104
         TabNumber       =   2
         Tag             =   "Finland"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   9
         Left            =   480
         Picture         =   TABDEMO.FRX:0C08
         TabGroup        =   2
         TabIndex        =   103
         TabNumber       =   1
         Tag             =   "Sweden"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   8
         Left            =   480
         Picture         =   TABDEMO.FRX:0F0A
         TabGroup        =   2
         TabIndex        =   102
         TabNumber       =   0
         Tag             =   "Norway"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   3
         Left            =   480
         Picture         =   TABDEMO.FRX:120C
         TabGroup        =   0
         TabIndex        =   97
         TabNumber       =   3
         Tag             =   "Italy"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   2
         Left            =   480
         Picture         =   TABDEMO.FRX:150E
         TabGroup        =   0
         TabIndex        =   95
         TabNumber       =   1
         Tag             =   "Germany"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   1
         Left            =   480
         Picture         =   TABDEMO.FRX:1810
         TabGroup        =   0
         TabIndex        =   96
         TabNumber       =   2
         Tag             =   "France"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   6
         Left            =   480
         Picture         =   TABDEMO.FRX:1B12
         TabGroup        =   1
         TabIndex        =   100
         TabNumber       =   2
         Tag             =   "Mexico"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   5
         Left            =   480
         Picture         =   TABDEMO.FRX:1E14
         TabGroup        =   1
         TabIndex        =   99
         TabNumber       =   1
         Tag             =   "Canada"
         Top             =   900
         Width           =   6375
      End
      Begin GSTabFrame GSTabFrame5
         BackColor       =   &H00C0C0C0&
         BufferDisplay   =   -1  'True
         FocusTab        =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   3075
         Index           =   4
         Left            =   480
         Picture         =   TABDEMO.FRX:2116
         TabGroup        =   1
         TabIndex        =   98
         TabNumber       =   0
         Tag             =   "United Staes of America"
         Top             =   900
         Width           =   6375
      End
      Begin Image Image1
         Height          =   420
         Left            =   6900
         Picture         =   TABDEMO.FRX:2418
         Top             =   3720
         Width           =   420
      End
   End
   Begin GSTabFrame GSTabFrame1
      BackColor       =   &H00C0C0C0&
      BufferDisplay   =   -1  'True
      Caption         =   "E&xamples"
      FocusTab        =   -1  'True
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4275
      Index           =   3
      Left            =   120
      TabGroup        =   0
      TabIndex        =   19
      TabNumber       =   2
      Top             =   420
      Width           =   7635
      Begin TextBox txtTabIndent
         Height          =   285
         Left            =   6660
         TabIndex        =   31
         Text            =   "txtTabIndent"
         Top             =   3360
         Width           =   615
      End
      Begin TextBox txtTabHeight
         Height          =   285
         Left            =   6660
         TabIndex        =   33
         Text            =   "txtTabHeight"
         Top             =   3720
         Width           =   615
      End
      Begin TextBox txtTabWidth
         Height          =   285
         Left            =   6660
         TabIndex        =   29
         Text            =   "txtTabWidth"
         Top             =   3000
         Width           =   615
      End
      Begin ComboBox cboPictPos
         Height          =   300
         Left            =   5520
         Style           =   2  'Dropdown List
         TabIndex        =   27
         Top             =   2580
         Width           =   1755
      End
      Begin ComboBox cboTextOrient
         Height          =   300
         Left            =   5520
         Style           =   2  'Dropdown List
         TabIndex        =   25
         Top             =   2040
         Width           =   1755
      End
      Begin PictureBox picEx
         BackColor       =   &H00E0E0E0&
         Height          =   3195
         Left            =   180
         ScaleHeight     =   3165
         ScaleWidth      =   5145
         TabIndex        =   34
         TabStop         =   0   'False
         Top             =   900
         Width           =   5175
         Begin PictureBox picExBtns
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   0  'None
            Height          =   1455
            Left            =   1740
            ScaleHeight     =   1455
            ScaleWidth      =   1755
            TabIndex        =   36
            TabStop         =   0   'False
            Top             =   960
            Width           =   1755
            Begin CommandButton cmdNewGroup
               Caption         =   "Add New Group"
               Height          =   375
               Left            =   120
               TabIndex        =   38
               Top             =   540
               Width           =   1515
            End
            Begin CommandButton cmdNewTab
               Caption         =   "Add New Tab"
               Height          =   375
               Left            =   120
               TabIndex        =   37
               Top             =   120
               Width           =   1515
            End
            Begin CommandButton cmdReset
               Caption         =   "Reset"
               Height          =   375
               Left            =   120
               TabIndex        =   39
               Top             =   960
               Width           =   1515
            End
         End
         Begin GSTabFrame GSTabFrame4
            AutoWidth       =   -1  'True
            BackColor       =   &H00E0E0E0&
            BufferDisplay   =   -1  'True
            Caption         =   "TF(0)"
            FocusTab        =   -1  'True
            Height          =   2835
            Index           =   0
            Left            =   240
            Picture         =   TABDEMO.FRX:2652
            TabGroup        =   0
            TabIndex        =   35
            TabNumber       =   0
            Top             =   180
            Width           =   4695
         End
      End
      Begin ComboBox cboStyle
         Height          =   300
         Left            =   5520
         Style           =   2  'Dropdown List
         TabIndex        =   23
         Top             =   1500
         Width           =   1755
      End
      Begin ComboBox cboPosition
         Height          =   300
         Left            =   5520
         Style           =   2  'Dropdown List
         TabIndex        =   21
         Top             =   960
         Width           =   1755
      End
      Begin Label Label32
         BackStyle       =   0  'Transparent
         Caption         =   "TabIndent"
         Height          =   195
         Left            =   5520
         TabIndex        =   30
         Top             =   3420
         Width           =   975
      End
      Begin Label Label31
         BackStyle       =   0  'Transparent
         Caption         =   "TabHeight"
         Height          =   195
         Left            =   5520
         TabIndex        =   32
         Top             =   3780
         Width           =   1095
      End
      Begin Label Label30
         BackStyle       =   0  'Transparent
         Caption         =   "TabWidth"
         Height          =   195
         Left            =   5520
         TabIndex        =   28
         Top             =   3060
         Width           =   975
      End
      Begin Label Label29
         BackStyle       =   0  'Transparent
         Caption         =   "PicturePosition"
         Height          =   195
         Left            =   5520
         TabIndex        =   26
         Top             =   2400
         Width           =   1695
      End
      Begin Label Label28
         BackColor       =   &H00000000&
         BackStyle       =   0  'Transparent
         Caption         =   "TextOrientation"
         Height          =   195
         Left            =   5520
         TabIndex        =   24
         Top             =   1860
         Width           =   1695
      End
      Begin Label Label25
         BackStyle       =   0  'Transparent
         Caption         =   "Style"
         Height          =   195
         Left            =   5520
         TabIndex        =   22
         Top             =   1320
         Width           =   1215
      End
      Begin Label Label24
         BackStyle       =   0  'Transparent
         Caption         =   "Position"
         Height          =   195
         Left            =   5520
         TabIndex        =   20
         Top             =   780
         Width           =   1335
      End
   End
   Begin Label Label18
      BackStyle       =   0  'Transparent
      Caption         =   "For further details refer to the help file included with this demonstration."
      Height          =   195
      Left            =   300
      TabIndex        =   108
      Top             =   4860
      Width           =   6195
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Click tab with right mouse button to select"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   7635
   End
Option Explicit
Dim sHelpFile As String
Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
Sub cboEventName_Click ()
    Dim EventDesc As String
    Select Case cboEventName.List(cboEventName.ListIndex)
        Case "Activated"
            EventDesc = "This event occurs whenever a tab becomes active."
        Case "Deactivated"
            EventDesc = "This event occurs before a tab is made inactive and a new tab is made active. The code may cancel the new tab activation if required."
    End Select
    txtEventDesc.Text = EventDesc
End Sub
Sub cboPictPos_Click ()
    Dim nIndex As Integer
    For nIndex = 1 To GSTabFrame4(0).TotalTabs - 1
        GSTabFrame4(nIndex).PicturePosition = cboPictPos.ListIndex
    Next
End Sub
Sub cboPosition_Click ()
    GSTabFrame4(0).Position = cboPosition.ListIndex
    CentreExBtns
End Sub
Sub cboPropName_Click ()
    Dim PropDesc As String
    Select Case cboPropName.List(cboPropName.ListIndex)
        Case "About"
            PropDesc = "This property, which is only available at design time, can be used to display the About dialog which identifies the TabFrame version number."
        Case "Active"
            PropDesc = "This property, which is only available at run time, determines if the tab is currently active."
        Case "ActiveColor"
            PropDesc = "This property determines the background color of the active tab."
        Case "AutoColor"
            PropDesc = "If this property is True then the TabFrame control will ensure that all tabs are using the same active and inactive colors."
        Case "AutoFont"
            PropDesc = "If this property is True then the TabFrame control will ensure that all tabs are using the same font and that the caption of the active font will be shown bold."
        Case "BufferDisplay"
            PropDesc = "If this property is True then the TabFrame control will buffer all display output to reduce flicker when selecting a new tab."
        Case "Chamfer"
            PropDesc = "This property determines the size of the chamfer on the corner of the tabs."
        Case "Child3D"
            PropDesc = "This property is used to determine which, if any, of the child controls on the TabFrame are given a 3D effect."
        Case "ChildBevel"
            PropDesc = "This property determines the type of 3D effect (raised or inset) given to selected child controls on the TabFrame"
        Case "ChildBevelWidth"
            PropDesc = "This property determines the width of the bevel used to give selected child controls a 3D appearance."
        Case "FocusTracking"
            PropDesc = "If this property is True then the TabFrame will rememeber which control has the focus from one activation to the next."
        Case "Groups"
            PropDesc = "This property, which is only available at runtime, determines the number of TabGroups in the TabSet."
        Case "InactiveColor"
            PropDesc = "This property determines the background color of the inactive tabs."
        Case "Position"
            PropDesc = "This property determines whether the tab appear at the top, bottom, left or right of the TabFrame control."
        Case "Stagger"
            PropDesc = "This property determines the offset between TabGroups."
        Case "Style"
            PropDesc = "This property determines the display style of the TabFrame control. Options include 2D (flat) as well as 3D raised or inset."
        Case "TabGroup"
            PropDesc = "This property determines which TabGroup the TabFrame belongs to."
        Case "TabHeight"
            PropDesc = "This property determines the height of the tab. If set to zero then the TabFrame control will set the height automatically based on the font size."
        Case "TabNumber"
            PropDesc = "This property determines the order, left-to-right, in which the tabs in a TabGroup are displayed."
        Case "Tabs"
            PropDesc = "This property array, which is only available at runtime, determines the number of TabFramess in a TabGroup."
        Case "TabWidth"
            PropDesc = "This property determines the width of the tab. If set to zero then the width will be set automatically so that all the tabs in a set of TabFrame controls fill the total width."
        Case "TotalTabs"
            PropDesc = "This property, which is only available at runtime, determines the total number of TabFrames in the TabSet."
        Case "Picture"
            PropDesc = "This property determines the picture (bitmap or icon) which will be displayed on the tab to the left of the caption."
        Case "TextOrientation"
            PropDesc = "This property determines the orientation of the caption text on the tab."
        Case "PicturePosition"
            PropDesc = "This property determines the position of the picture relative to the caption text."
        Case "ClientLeft"
            PropDesc = "This property, which is not available at design time and is read-only at runtime, gives the position of the top left corner of the active tab client area - i.e. the area on which controls may be placed."
        Case "ClientTop"
            PropDesc = "This property, which is not available at design time and is read-only at runtime, gives the position of the top left corner of the active tab client area - i.e. the area on which controls may be placed."
        Case "ClientWidth"
            PropDesc = "This property, which is not available at design time and is read-only at runtime, gives the width of the active tab client area - i.e. the area on which controls may be placed."
        Case "ClientHeight"
            PropDesc = "This property, which is not available at design time and is read-only at runtime, gives the height of the active tab client area - i.e. the area on which controls may be placed."
        Case "FocusTab"
            PropDesc = "This property determines if the tab is given the focus when it is activated."
        Case "AutoWidth"
            PropDesc = "If this property is True then the TabFrame control will ensure that all tabs are the same width."
        Case "TabIndent"
            PropDesc = "This property determines the indent of the first tab from the edge of the TabSet. If the default TabWidth is used for one or more tabs in a group then the indent is also used for the last tab."
End Select
    txtPropDesc.Text = PropDesc
End Sub
Sub cboStyle_Click ()
    GSTabFrame4(0).Style = cboStyle.ListIndex
    CentreExBtns
End Sub
Sub cboTextOrient_Click ()
    Dim nIndex As Integer
    For nIndex = 1 To GSTabFrame4(0).TotalTabs - 1
        GSTabFrame4(nIndex).TextOrientation = cboTextOrient.ListIndex
    Next
End Sub
Sub CentreExBtns ()
    picExBtns.Left = GSTabFrame4(0).Left + GSTabFrame4(0).ClientLeft + ((GSTabFrame4(0).ClientWidth - picExBtns.Width) / 2)
    picExBtns.Top = GSTabFrame4(0).Top + GSTabFrame4(0).ClientTop + ((GSTabFrame4(0).ClientHeight - picExBtns.Height) / 2)
End Sub
Sub cmdHelp_Click ()
    Dim rv As Integer
    rv = WinHelp(frmTabDemo.hWnd, sHelpFile, 3, 0)
End Sub
Sub cmdNewGroup_Click ()
    Dim nTab As Integer
    nTab = GSTabFrame4(0).TotalTabs
    Load GSTabFrame4(nTab)
    GSTabFrame4(nTab).TabGroup = GSTabFrame4(0).Groups
    GSTabFrame4(nTab).Caption = "TF(" & CStr(nTab) & ")"
    GSTabFrame4(nTab).Active = True
    CentreExBtns
End Sub
Sub cmdNewTab_Click ()
    Dim nTab As Integer
    nTab = GSTabFrame4(0).TotalTabs
    Load GSTabFrame4(nTab)
    GSTabFrame4(nTab).Caption = "TF(" & CStr(nTab) & ")"
    GSTabFrame4(nTab).Active = True
End Sub
Sub cmdReset_Click ()
    Dim nIndex As Integer
    ' remove all TabFrames except the first
    For nIndex = 1 To GSTabFrame4(0).TotalTabs - 1
        Unload GSTabFrame4(nIndex)
    Next
    ' reset TabFrame properties
    GSTabFrame4(0).Position = 0
    GSTabFrame4(0).Style = 2
    GSTabFrame4(0).TextOrientation = 0
    GSTabFrame4(0).PicturePosition = 0
    GSTabFrame4(0).TabWidth = 0
    GSTabFrame4(0).TabIndent = 0
    GSTabFrame4(0).TabHeight = 0
    ' initialise combo/text boxes
    cboPosition.ListIndex = GSTabFrame4(0).Position
    cboStyle.ListIndex = GSTabFrame4(0).Style
    cboTextOrient.ListIndex = GSTabFrame4(0).TextOrientation
    cboPictPos.ListIndex = GSTabFrame4(0).PicturePosition
    txtTabWidth.Text = CStr(GSTabFrame4(0).TabWidth)
    txtTabIndent.Text = CStr(GSTabFrame4(0).TabIndent)
    txtTabHeight.Text = CStr(GSTabFrame4(0).TabHeight)
    ' centre buttons on example form
    CentreExBtns
End Sub
Sub Form_Load ()
    ' place in centre of screen
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) / 2
    ' change selection label
    Label2.Caption = "Click tab with left mouse button to select"
    ' get help file name
    sHelpFile = App.Path
    If Right$(sHelpFile, 1) <> "\" Then sHelpFile = sHelpFile & "\"
    sHelpFile = sHelpFile & "TabFrame.Hlp"
    ' load property combo box
    cboPropName.Clear
    cboPropName.AddItem "About"
    cboPropName.AddItem "Active"
    cboPropName.AddItem "ActiveColor"
    cboPropName.AddItem "AutoColor"
    cboPropName.AddItem "AutoFont"
    cboPropName.AddItem "BufferDisplay"
    cboPropName.AddItem "Chamfer"
    cboPropName.AddItem "Child3D"
    cboPropName.AddItem "ChildBevel"
    cboPropName.AddItem "ChildBevelWidth"
    cboPropName.AddItem "FocusTracking"
    cboPropName.AddItem "Groups"
    cboPropName.AddItem "InactiveColor"
    cboPropName.AddItem "Position"
    cboPropName.AddItem "Stagger"
    cboPropName.AddItem "Style"
    cboPropName.AddItem "TabGroup"
    cboPropName.AddItem "TabHeight"
    cboPropName.AddItem "TabNumber"
    cboPropName.AddItem "Tabs"
    cboPropName.AddItem "TabWidth"
    cboPropName.AddItem "TotalTabs"
    cboPropName.AddItem "Picture"
    cboPropName.AddItem "TextOrientation"
    cboPropName.AddItem "PicturePosition"
    cboPropName.AddItem "ClientLeft"
    cboPropName.AddItem "ClientTop"
    cboPropName.AddItem "ClientWidth"
    cboPropName.AddItem "ClientHeight"
    cboPropName.AddItem "FocusTab"
    cboPropName.AddItem "AutoWidth"
    cboPropName.AddItem "TabIndent"
    cboPropName.ListIndex = 0
    ' load event combo box
    cboEventName.Clear
    cboEventName.AddItem "Activated"
    cboEventName.AddItem "Deactivated"
    cboEventName.ListIndex = 0
    ' load position combo box
    cboPosition.Clear
    cboPosition.AddItem "Top"
    cboPosition.AddItem "Bottom"
    cboPosition.AddItem "Left"
    cboPosition.AddItem "Right"
    cboPosition.AddItem "Right (Text out)"
    cboPosition.AddItem "Left (Top to Bottom)"
    ' load style combo box
    cboStyle.Clear
    cboStyle.AddItem "2D"
    cboStyle.AddItem "3D Active Raised"
    cboStyle.AddItem "3D Both Raised"
    cboStyle.AddItem "3D Active Inset"
    cboStyle.AddItem "3D Both Inset"
    ' load text orientation combo box
    cboTextOrient.Clear
    cboTextOrient.AddItem "Default"
    cboTextOrient.AddItem "Horizontal"
    cboTextOrient.AddItem "Vertical (Right)"
    cboTextOrient.AddItem "Vertical (Left)"
    ' load picture position combo box
    cboPictPos.Clear
    cboPictPos.AddItem "Default"
    cboPictPos.AddItem "Left of Text"
    cboPictPos.AddItem "Right of Text"
    cboPictPos.AddItem "Above Text"
    cboPictPos.AddItem "Below Text"
    ' initialise example
    cmdReset_Click
End Sub
Sub GSToolTip1_GetToolTip (FrmName As String, CtlName As String, ToolTip As String)
    If CtlName = "Image1" Then
        ToolTip = "Click to show details" & Chr$(10) & "of the ToolTip control"
    End If
End Sub
Sub Image1_Click ()
    frmToolTip.Show 1
End Sub
Sub SetTabHeight ()
    Dim nHeight As Integer
    On Error GoTo TabHeightErr
    nHeight = CInt(txtTabHeight.Text)
    GSTabFrame4(0).TabHeight = nHeight
    CentreExBtns
    Exit Sub
TabHeightErr:
    MsgBox "TabHeight must be numeric", 48
    txtTabHeight.Text = CStr(GSTabFrame4(0).TabHeight)
    Exit Sub
End Sub
Sub SetTabIndent ()
    Dim nIndent As Integer
    On Error GoTo TabIndentErr
    nIndent = CInt(txtTabIndent.Text)
    GSTabFrame4(0).TabIndent = nIndent
    Exit Sub
TabIndentErr:
    MsgBox "TabIndent must be numeric", 48
    txtTabIndent.Text = CStr(GSTabFrame4(0).TabIndent)
    Exit Sub
End Sub
Sub SetTabWidth ()
    Dim nWidth As Integer
    On Error GoTo TabWidthErr
    nWidth = CInt(txtTabWidth.Text)
    GSTabFrame4(0).TabWidth = nWidth
    Exit Sub
TabWidthErr:
    MsgBox "TabWidth must be numeric", 48
    txtTabWidth.Text = CStr(GSTabFrame4(0).TabWidth)
    Exit Sub
End Sub
Sub txtTabHeight_KeyPress (KeyAscii As Integer)
    If KeyAscii = 13 Then
        SetTabHeight
        KeyAscii = 0
    End If
End Sub
Sub txtTabHeight_LostFocus ()
    SetTabHeight
End Sub
Sub txtTabIndent_KeyPress (KeyAscii As Integer)
    If KeyAscii = 13 Then
        SetTabIndent
        KeyAscii = 0
    End If
End Sub
Sub txtTabIndent_LostFocus ()
    SetTabIndent
End Sub
Sub txtTabWidth_KeyPress (KeyAscii As Integer)
    If KeyAscii = 13 Then
        SetTabWidth
        KeyAscii = 0
    End If
End Sub
Sub txtTabWidth_LostFocus ()
    SetTabWidth
End Sub