ActiveX Programming Unleashed CD

home *** CD-ROM | disk | FTP | other *** search

/ ActiveX Programming Unleashed CD / AXU.iso / componen / vsocx / demo / fnew.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-02 | 60.7 KB | 1,494 lines

VERSION 2.00 Begin Form fnew BorderStyle = 3 'Fixed Double Caption = "VSVBX 5.0" ClientHeight = 4755 ClientLeft = 1185 ClientTop = 915 ClientWidth = 8100 Height = 5220 Left = 1095 LinkTopic = "Form1" ScaleHeight = 4755 ScaleWidth = 8100 Top = 540 Width = 8280 Begin VideoSoftElastic VSElastic1 Align = 5 'Fill Container AutoSizeChildren= 2 'Uneven Horizontal BevelChildren = 2 'No Elastics BevelInner = 0 'None BevelInnerWidth = 2 BevelOuter = 0 'None BevelOuterWidth = 1 BorderWidth = 12 ChildSpacing = 12 Height = 4110 IntBkg = &H00C0C0C0& Left = 0 TabIndex = 0 Top = 645 Width = 8100 Begin VideoSoftIndexTab vsTabDialog BackSheets = 0 'None BackTabColor = &H0080FFFF& BorderWidth = 12 Caption = "0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17" CurrTab = 16 FirstTab = 6 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 3750 Left = 2580 Position = 0 'Top ShowFocusRect = 0 'False Style = 9 'CutCorner 3D TabIndex = 2 TabStop = 0 'False Top = 180 Width = 5340 Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look BorderWidth = 12 Caption = "Drive the IndexTab through another control" CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 3015 Index = 8 IntBkg = &H00C0C0C0& Left = -9675 PicturePos = 3 'Center Top TabIndex = 76 Top = 510 Width = 4890 End Begin VideoSoftElastic elaPage BackColor = &H00000000& BevelOuter = 0 'None BorderWidth = 0 Caption = "vsAWK: Parse files and strings" CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FF00& Height = 3015 Index = 6 Left = 11250 PicturePos = 3 'Center Top TabIndex = 75 Top = 510 Width = 4890 End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look BorderWidth = 2 Caption = "New SWITCH event. Fired immediately before the current tab is changed." CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 3015 Index = 5 IntBkg = &H00C0C0C0& Left = 225 PicturePos = 3 'Center Top TabIndex = 74 Top = 510 Width = 4890 End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look BorderWidth = 2 CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H000000FF& Height = 3015 Index = 4 IntBkg = &H00C0C0C0& Left = -9750 PicturePos = 3 'Center Top TabIndex = 70 Top = 510 Width = 4890 Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None Caption = "Tab1|Tab2|Tab3|tab4|tab5|tab6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 1000 Index = 6 Left = 435 MultiRow = -1 'True MultiRowOffset = 800 New3D = -1 'True Position = 0 'Top Style = 9 'CutCorner 3D TabIndex = 71 TabsPerPage = 3 Top = 1845 Width = 4290 End Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None Caption = "Tab1|Tab2|Tab3|tab4|tab5|tab6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 1000 Index = 7 Left = 195 MultiRow = -1 'True New3D = -1 'True Position = 0 'Top Style = 9 'CutCorner 3D TabIndex = 72 TabsPerPage = 3 Top = 630 Width = 4125 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "New MultiRowOffset property" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 420 Index = 6 Left = 270 TabIndex = 73 Top = 180 Width = 3990 End End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look BorderWidth = 2 CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H000000FF& Height = 3015 Index = 3 IntBkg = &H00C0C0C0& Left = -9825 PicturePos = 3 'Center Top TabIndex = 66 Top = 510 Width = 4890 Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None BackTabColor = &H0080FF80& Caption = "Tab1|Tab2|Tab3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 1485 Index = 5 Left = 1530 New3D = -1 'True Position = 0 'Top Style = 9 'CutCorner 3D TabHeight = 600 TabIndex = 69 TabsPerPage = 3 Top = 1275 Width = 3195 End Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None BackTabColor = &H0080FF80& Caption = "Tab1|Tab2|Tab3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 1635 Index = 4 Left = 435 New3D = -1 'True Position = 0 'Top Style = 9 'CutCorner 3D TabIndex = 67 TabsPerPage = 3 Top = 630 Width = 3030 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "New TabHeight property" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 420 Index = 5 Left = 270 TabIndex = 68 Top = 180 Width = 3990 End End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look BorderWidth = 2 CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H000000FF& Height = 3015 Index = 2 IntBkg = &H00C0C0C0& Left = -9900 PicturePos = 3 'Center Top TabIndex = 63 Top = 510 Width = 4890 Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None Caption = "Tab1|Tab2|Tab3" CaptionStyle = 3 'Raised Light FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& FrontTabColor = &H00C0C0C0& FrontTabForeColor= &H00FF0000& Height = 1845 Index = 3 Left = 1170 New3D = -1 'True Position = 0 'Top Style = 9 'CutCorner 3D TabIndex = 64 TabsPerPage = 3 Top = 780 Width = 3435 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "At Last: 3D Fonts" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 420 Index = 2 Left = 285 TabIndex = 65 Top = 180 Width = 3990 End End Begin VideoSoftElastic elaPage AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look Height = 3015 Index = 43 IntBkg = &H00C0C0C0& Left = -9975 TabIndex = 59 TagWidth = 1000 Top = 510 Width = 4890 Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None BackTabColor = &H00FFFF80& Caption = "Tab1|Tab2|Tab3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 1575 Index = 2 Left = 1035 Position = 0 'Top Style = 9 'CutCorner 3D TabIndex = 61 TabsPerPage = 3 Top = 1245 Width = 3675 End Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None BackTabColor = &H0080FFFF& Caption = "Tab1|Tab2|Tab3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 1635 Index = 1 Left = 285 Position = 0 'Top Style = 8 'CutCorner TabIndex = 62 TabsPerPage = 3 Top = 585 Width = 2955 End Begin CheckBox Check1 BackColor = &H00C0C0C0& Caption = "New 3D" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Left = 3555 TabIndex = 60 Top = 180 Width = 990 End Begin Label Label4 BackStyle = 0 'Transparent Caption = "New Styles: Cut Corners" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 Left = 225 TabIndex = 58 Top = 150 Width = 3045 End End Begin VideoSoftElastic elaPage BevelOuter = 6 'Groove BorderWidth = 2 Caption = "The new functions are: SQRT, INT, FRAC, LOG10, CEIL, and FLOOR." CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 3015 Index = 44 IntBkg = &H00C0C0C0& Left = 11325 PicturePos = 3 'Center Top TabIndex = 57 Top = 510 Width = 4890 End Begin VideoSoftElastic elaPage BackColor = &H00000000& BevelOuter = 0 'None BorderWidth = 0 Caption = "IndexTab: Tabs + Dynamic Dialogs in all flavors" CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FF00& Height = 3015 Index = 40 Left = -10200 PicturePos = 3 'Center Top TabIndex = 56 Top = 510 Width = 4890 End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3015 Index = 38 IntBkg = &H00C0C0C0& Left = -10350 TabIndex = 52 TagSplit = -1 'True TagWidth = 700 Top = 510 Width = 4890 Begin TextBox Text3 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 1 Left = 1365 TabIndex = 53 Tag = "Name | Please Enter the name" Text = "Text3" Top = 1065 Width = 3180 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "TagSplit: Allows multiple fields on the tag property" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 675 Index = 4 Left = 375 TabIndex = 55 Top = 210 Width = 3990 End Begin Image Image1 Height = 480 Index = 2 Left = 240 Picture = FNEW.FRX:00D1 Top = 1545 Width = 480 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "Tag = Name | Please Enter the name" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 3 Left = 825 TabIndex = 54 Top = 1665 Width = 3990 End End Begin VideoSoftElastic elaPage AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3015 Index = 7 IntBkg = &H00C0C0C0& Left = -10275 TabIndex = 48 TagSplit = -1 'True TagWidth = 700 Top = 510 Width = 4890 Begin ComboBox Combo1 BackColor = &H00FFFFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 300 Index = 1 Left = 1665 Style = 2 'Dropdown List TabIndex = 50 Top = 645 Width = 1725 End Begin TextBox Text3 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 0 Left = 1860 TabIndex = 51 Tag = "Name | Please Enter the name" Text = "Text3" Top = 1635 Width = 1200 End Begin Image Image1 Height = 480 Index = 1 Left = 240 Picture = FNEW.FRX:03DE Top = 1545 Width = 480 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "TagPosition: All over the control" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 675 Index = 1 Left = 390 TabIndex = 49 Top = 210 Width = 3990 End End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look Height = 3015 Index = 41 IntBkg = &H00C0C0C0& Left = -10125 TabIndex = 27 Top = 510 Width = 4890 Begin VideoSoftIndexTab VSIndexTab1 Caption = "VSIndexTab1" Height = 2070 Index = 0 Left = 1020 TabIndex = 28 Top = 720 Width = 3645 Begin VideoSoftElastic VSElastic8 BackColor = &H00FFFFFF& BevelInner = 0 'None BevelOuter = 0 'None Caption = "Place Container Control Here" CaptionPos = 4 'Center Center FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1755 Index = 0 IntBkg = &H00FFFFFF& Left = 15 TabIndex = 30 Top = 15 Width = 3615 End End Begin Label Label2 BackStyle = 0 'Transparent Caption = "Easier design interface" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 420 Index = 0 Left = 375 TabIndex = 29 Top = 210 Width = 3990 End Begin Image Image1 Height = 480 Index = 0 Left = 435 Picture = FNEW.FRX:0701 Top = 810 Width = 480 End End Begin VideoSoftElastic elaPage AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look Height = 3015 Index = 35 IntBkg = &H00C0C0C0& Left = -10575 TabIndex = 25 TagWidth = 1000 Top = 510 Width = 4890 Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 Caption = "&Send" CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 600 Index = 12 IntBkg = &H00C0C0C0& Left = 3495 Picture = FNEW.FRX:0A19 PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 47 Top = 1260 Width = 1170 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 600 Index = 11 IntBkg = &H00C0C0C0& Left = 2760 Picture = FNEW.FRX:0D26 PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 46 Top = 1260 Width = 600 End Begin VideoSoftElastic vsElastic3D BevelInner = 0 'None BevelOuter = 8 'Raised New Look CaptionPos = 4 'Center Center CaptionStyle = 1 'Raised ForeColor = &H00FF0000& Height = 540 Index = 0 IntBkg = &H00C0C0C0& Left = 2370 TabIndex = 41 Top = 540 Width = 2295 Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 0 'None BevelOuterWidth = 1 BorderWidth = 0 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 390 Index = 10 IntBkg = &H00C0C0C0& Left = 1035 Picture = FNEW.FRX:103E PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 44 Tag = "&e" Top = 90 Width = 705 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 0 'None BevelOuterWidth = 1 BorderWidth = 0 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 390 Index = 9 IntBkg = &H00C0C0C0& Left = 90 Picture = FNEW.FRX:11CB PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 43 Tag = "&e" Top = 90 Width = 390 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 0 'None BevelOuterWidth = 1 BorderWidth = 0 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 390 Index = 8 IntBkg = &H00C0C0C0& Left = 570 Picture = FNEW.FRX:1358 PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 42 Tag = "&e" Top = 90 Width = 375 End End Begin VideoSoftElastic ElasticTemplate AutoSizeChildren= 2 'Uneven Horizontal BevelOuter = 8 'Raised New Look Height = 480 IntBkg = &H00C0C0C0& Left = 1920 TabIndex = 26 Top = 2205 Width = 2820 Begin VideoSoftElastic VSElastic11 BevelOuter = 3 'Inset BevelOuterWidth = 1 BorderWidth = 0 Caption = "10:15 AM" CaptionPos = 4 'Center Center FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 IntBkg = &H00C0C0C0& Left = 1860 TabIndex = 39 Top = 90 Width = 870 End Begin VideoSoftElastic VSElastic10 BevelOuter = 3 'Inset BevelOuterWidth = 1 BorderWidth = 0 Caption = "NUM" CaptionPos = 4 'Center Center FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 IntBkg = &H00C0C0C0& Left = 1275 TabIndex = 38 Top = 90 Width = 495 End Begin TextBox Text2 Height = 300 Left = 90 TabIndex = 37 Top = 90 Width = 1095 End End Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Buttons" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 315 Index = 4 Left = 1455 TabIndex = 35 Top = 1410 Width = 1260 End Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "ToolBars" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 315 Index = 3 Left = 945 TabIndex = 45 Top = 645 Width = 1380 End Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "StatusLines" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 315 Index = 2 Left = 195 TabIndex = 40 Top = 2280 Width = 1680 End Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Templates are just one click away" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 375 Index = 1 Left = 120 TabIndex = 36 Top = 75 Width = 4215 End End Begin VideoSoftElastic elaPage BevelOuter = 8 'Raised New Look Height = 3015 Index = 36 IntBkg = &H00C0C0C0& Left = -10500 TabIndex = 15 Top = 510 Width = 4890 Begin VideoSoftElastic vsElastic3D BevelInner = 8 'Raised New Look BevelOuter = 6 'Groove BorderWidth = 0 Caption = "New 3D Fonts" CaptionPos = 4 'Center Center CaptionStyle = 1 'Raised FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00C0C0C0& Height = 1110 Index = 7 IntBkg = &H00C0C0C0& Left = 360 TabIndex = 19 Top = 330 Width = 1845 End Begin VideoSoftElastic vsElastic3D BevelInner = 8 'Raised New Look BevelOuter = 6 'Groove BorderWidth = 0 Caption = "New 3D Fonts" CaptionPos = 4 'Center Center CaptionStyle = 4 'Inset Light FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1125 Index = 6 IntBkg = &H00C0C0C0& Left = 2445 TabIndex = 18 Top = 345 Width = 1845 End Begin VideoSoftElastic vsElastic3D BevelInner = 8 'Raised New Look BevelOuter = 6 'Groove BorderWidth = 0 Caption = "New 3D Fonts" CaptionPos = 4 'Center Center CaptionStyle = 2 'Inset FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 24 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H000000FF& Height = 1080 Index = 5 IntBkg = &H00C0C0C0& Left = 390 TabIndex = 17 Top = 1770 Width = 1845 End Begin VideoSoftElastic vsElastic3D BevelInner = 8 'Raised New Look BevelOuter = 6 'Groove BorderWidth = 0 Caption = "New 3D Fonts" CaptionPos = 4 'Center Center CaptionStyle = 4 'Inset Light FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 1065 Index = 4 IntBkg = &H00C0C0C0& Left = 2475 TabIndex = 16 Top = 1785 Width = 1845 End End Begin VideoSoftElastic elaPage BevelInner = 9 'Inset New Look BevelOuter = 8 'Raised New Look CaptionPos = 6 'Right Top ChildSpacing = 10 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3015 Index = 37 IntBkg = &H00C0C0C0& Left = -10425 TabIndex = 14 TagWidth = 1000 Top = 510 Width = 4890 Begin TextBox Text1 BorderStyle = 0 'None Height = 1050 Index = 2 Left = 1755 TabIndex = 34 Tag = "Address" Top = 1680 Width = 2685 End Begin TextBox Text1 BorderStyle = 0 'None Height = 300 Index = 1 Left = 1740 TabIndex = 33 Tag = "Company" Top = 1230 Width = 2700 End Begin TextBox Text1 BorderStyle = 0 'None Height = 300 Index = 0 Left = 1740 TabIndex = 32 Tag = "Name" Top = 780 Width = 2685 End Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "New 3D Effects" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00008000& Height = 360 Index = 0 Left = 285 TabIndex = 31 Top = 195 Width = 4245 End End Begin VideoSoftElastic elaPage AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3015 Index = 42 IntBkg = &H00C0C0C0& Left = -10050 TabIndex = 11 TagWidth = 1000 Top = 510 Width = 4890 Begin ComboBox Combo1 BackColor = &H00FFFFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 300 Index = 0 Left = 1530 Style = 2 'Dropdown List TabIndex = 13 Tag = "&Templates" Top = 135 Width = 1710 End Begin VideoSoftIndexTab VSIndexTab2 BackSheets = 0 'None Caption = "Tab1|Tab2|Tab3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 2280 Index = 0 Left = 210 Position = 0 'Top Style = 5 'Chamfered 3D TabIndex = 12 TabsPerPage = 3 Top = 555 Width = 4380 End End Begin VideoSoftElastic elaPage AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look Height = 3015 Index = 34 IntBkg = &H00C0C0C0& Left = -10650 TabIndex = 6 TagWidth = 1 Top = 510 Width = 4890 Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 Caption = "&Top" CaptionPos = 3 'Center Top CornerColor = &H00C0C0C0& Height = 840 Index = 3 IntBkg = &H00C0C0C0& Left = 270 Picture = FNEW.FRX:1569 PicturePos = 5 'Center Bottom Style = 4 'Toggle Button TabIndex = 24 Top = 2010 Width = 915 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 Caption = "&Right" CornerColor = &H00C0C0C0& Height = 600 Index = 7 IntBkg = &H00C0C0C0& Left = 270 Picture = FNEW.FRX:1876 PicturePos = 7 'Right Center Style = 3 'Command Button TabIndex = 23 Top = 1320 Width = 1170 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 600 Index = 6 IntBkg = &H00C0C0C0& Left = 300 Picture = FNEW.FRX:1B83 PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 22 Tag = "&e" Top = 630 Width = 600 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 600 Index = 5 IntBkg = &H00C0C0C0& Left = 930 Picture = FNEW.FRX:1E90 PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 21 Tag = "&e" Top = 630 Width = 600 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 600 Index = 4 IntBkg = &H00C0C0C0& Left = 1590 Picture = FNEW.FRX:219D PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 20 Tag = "&e" Top = 630 Width = 600 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 Caption = "&Push Button" CaptionPos = 4 'Center Center CaptionStyle = 1 'Raised CornerColor = &H00C0C0C0& FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00008000& Height = 855 Index = 2 IntBkg = &H00C0C0C0& Left = 1230 Style = 4 'Toggle Button TabIndex = 9 Top = 2010 Width = 2565 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 5 Caption = "&Bottom" CaptionPos = 5 'Center Bottom CornerColor = &H00C0C0C0& Height = 840 Index = 1 IntBkg = &H00C0C0C0& Left = 3840 Picture = FNEW.FRX:24B5 PicturePos = 3 'Center Top Style = 4 'Toggle Button TabIndex = 8 Top = 2010 Width = 915 End Begin VideoSoftElastic VSElastic5 AccessKey = -1 'True BevelInner = 0 'None BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 Caption = "&Left" CaptionPos = 7 'Right Center CornerColor = &H00C0C0C0& Height = 600 Index = 0 IntBkg = &H00C0C0C0& Left = 1515 Picture = FNEW.FRX:27C2 PicturePos = 1 'Left Center Style = 3 'Command Button TabIndex = 7 Top = 1320 Width = 1170 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "The Elastic has a new style: Buttons" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Left = 150 TabIndex = 10 Top = 150 Width = 4215 End End Begin VideoSoftElastic elaPage BackColor = &H00000000& BevelOuter = 0 'None BorderWidth = 0 Caption = "Elastic: Automatic screen resizing + much more..." CaptionPos = 4 'Center Center ChildSpacing = 0 FontBold = -1 'True FontItalic = -1 'True FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FF00& Height = 3015 Index = 0 Left = -10800 PicturePos = 3 'Center Top TabIndex = 5 Top = 510 Width = 4890 End Begin VideoSoftElastic elaPage BevelInner = 0 'None BevelOuter = 8 'Raised New Look Caption = "Wow-paper!" CaptionPos = 4 'Center Center CaptionStyle = 1 'Raised FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 24 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FFFF& Height = 3015 Index = 1 IntBkg = &H00C0C0C0& Left = -10725 Picture = FNEW.FRX:2ADA PicturePos = 10 'Tile TabIndex = 3 Top = 510 Width = 4890 End End Begin ListBox List1 BackColor = &H00FFFFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3630 Left = 180 TabIndex = 1 Top = 180 Width = 2220 End End Begin VideoSoftElastic VSElastic2 Align = 1 'Top BackColor = &H00000000& BevelInner = 0 'None BevelOuter = 0 'None Caption = "New Features" CaptionPos = 4 'Center Center FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FFFF& Height = 645 Left = 0 TabIndex = 4 Top = 0 Width = 8100 End Option Explicit Sub Check1_Click () VSIndexTab2(2).New3D = Not VSIndexTab2(2).New3D End Sub Sub Combo1_Click (Index As Integer) Select Case Index Case 0 VSIndexTab2(0).Template = combo1(0).ListIndex + 1 Case 1 elaPage(7).TagPosition = combo1(1).ListIndex End Select End Sub Sub Form_Load () 'Create Dynamic dialog vsTabDialog.TabHeight = 1 List1.AddItem "Elastic" List1.AddItem " Wallpaper" List1.AddItem " Buttons" List1.AddItem " Templates" List1.AddItem " 3D Fonts" List1.AddItem " New 3D Effects" List1.AddItem " Tag Split" List1.AddItem " New Tag Positions" List1.AddItem "IndexTab" List1.AddItem " Easier Design" List1.AddItem " Templates" List1.AddItem " New Styles" List1.AddItem " 3D Fonts" List1.AddItem " TabHeight" List1.AddItem " Multi-Row Offset" List1.AddItem " Dynamic Dialogs" List1.AddItem " Switch Event" List1.AddItem "Awk" List1.AddItem " More Functions" List1.ListIndex = 0 combo1(0).AddItem "Redmond" combo1(0).AddItem "Scotts Valley" combo1(0).AddItem "Cambridge" combo1(0).AddItem "Berkeley" combo1(0).AddItem "Chicago" combo1(0).ListIndex = 0 combo1(1).AddItem "Left" combo1(1).AddItem "Above" combo1(1).AddItem "Right" combo1(1).AddItem "Bottom" combo1(1).ListIndex = 0 End Sub Sub List1_Click () mousepointer = 11 vsTabDialog.CurrTab = List1.ListIndex mousepointer = 0 End Sub