Caption = "Resize the form and see the size of the tabs"
ClientHeight = 5550
ClientLeft = 795
ClientTop = 975
ClientWidth = 6195
Height = 6015
Left = 705
LinkTopic = "Form2"
ScaleHeight = 5550
ScaleWidth = 6195
Top = 600
Width = 6375
Begin VideoSoftElastic VSElastic1
Align = 5 'Fill Container
AutoSizeChildren= 1 'Even Horizontal
BackColor = &H00C0C0C0&
BevelOuter = 1 'Raised
BevelOuterWidth = 1
Height = 6360
Left = 0
MinChildSize = 3500
TabIndex = 0
Top = 0
Width = 9600
Begin VideoSoftIndexTab VSIndexTab1
BackTabColor = &H00008080&
Caption = "Info|To do|Tasks"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
FrontTabColor = &H00C0C0C0&
Height = 6180
Index = 0
Left = 90
Position = 0 'Top
ShowFocusRect = 0 'False
Style = 4 'Chamfered
TabIndex = 1
TabOutlineColor = &H00FFFFFF&
TabsPerPage = 3
Top = 90
Width = 9420
Begin VideoSoftElastic VSElastic5
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelOuterWidth = 1
Caption = "The first container to the left is assigned to the first tab, the second one to the left is assigned to the second tab, and so on. Move the containers to the left or rigth inside the IndexTab to change tab assignments."
CaptionPos = 4 'Center Center
Height = 3330
Left = 4170
TabIndex = 17
Top = 600
Width = 1815
End
Begin VideoSoftElastic VSElastic4
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
CaptionPos = 6 'Right Top
Height = 1395
Left = 2550
TabIndex = 14
TagWidth = 650
Top = 600
Width = 1470
Begin ListBox List1
BackColor = &H0080FFFF&
Height = 420
Index = 1
Left = 735
TabIndex = 16
Tag = "Notes"
Top = 750
Width = 645
End
Begin ListBox List1
Height = 420
Index = 0
Left = 735
TabIndex = 15
Tag = "To Do"
Top = 90
Width = 645
End
End
Begin VideoSoftElastic VSElastic2
AutoSizeChildren= 4 'Uneven Vertical
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
CaptionPos = 6 'Right Top
Height = 2670
Left = 90
TabIndex = 2
Top = 495
Width = 2445
Begin TextBox Text3
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 765
Left = 90
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 18
Tag = "Notes"
Text = "If the Elastic TagWidth property is set to a value greater than 0, the Elastic displays each child's Tag property content as a label. Check the Tag property of the controls in this elastic."
Top = 1815
Width = 2265
End
Begin VideoSoftElastic VSElastic3
AutoSizeChildren= 3 'Even Vertical
BackColor = &H00C0C0C0&
ForeColor = &H00FF0000&
Height = 1635
Left = 90
TabIndex = 9
TagWidth = 1200
Top = 90
Width = 2265
Begin TextBox Text1
BackColor = &H00FFFFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 3
Left = 1290
TabIndex = 13
Tag = "Department"
Top = 1260
Width = 885
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Index = 2
Left = 1290
TabIndex = 12
Tag = "Company"
Top = 870
Width = 885
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Index = 1
Left = 1290
TabIndex = 11
Tag = "Last Name"
Top = 90
Width = 885
End
Begin TextBox Text1
BackColor = &H00FFFFFF&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Index = 0
Left = 1290
TabIndex = 10
Tag = "First Name"
Top = 480
Width = 885
End
End
End
End
End
Begin VideoSoftElastic StatusBar
Align = 2 'Align Bottom
AutoSizeChildren= 1 'Even Horizontal
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
Height = 555
Left = 0
TabIndex = 3
Top = 6360
Width = 9600
Begin CommandButton Button
BackColor = &H00C0C0C0&
Caption = "BackS&heets"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 4
Left = 7710
TabIndex = 8
Top = 90
Width = 1800
End
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 = 5805
TabIndex = 7
Top = 90
Width = 1815
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 = 3900
TabIndex = 6
Top = 90
Width = 1815
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 = 1995
TabIndex = 5
Top = 90
Width = 1815
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 = 4
Top = 90
Width = 1815
End
End
End
Option Explicit
Sub Button_Click (Index As Integer)
Select Case Index
Case 0 'Changes Tab positions
VSindextab1(0).Position = (VSindextab1(0).Position + 1) Mod 5
Case 1 'Changes tab styles
VSindextab1(0).Style = (VSindextab1(0).Style + 1) Mod 6
Case 2 'Changes back tab color
VSindextab1(0).BackTabColor = QBColor(Rnd * 15)
Case 3 'Changes Caption text color
VSindextab1(0).ForeColor = QBColor(Rnd * 15)
Case 4 'Changes BackSheets style
VSindextab1(0).BackSheets = (VSindextab1(0).BackSheets + 1) Mod 3
