fTest.frm
上传用户:jnjasmy
上传日期:2015-01-04
资源大小:637k
文件大小:49k
源码类别:

GDI/图象编程

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "*A..AeroSuiteAeroSuite.vbp"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  4. Begin VB.Form fTest 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H00F0F0F0&
  7.    Caption         =   "Vista Aero 样式OCX 测试"
  8.    ClientHeight    =   5520
  9.    ClientLeft      =   3885
  10.    ClientTop       =   4200
  11.    ClientWidth     =   6045
  12.    Icon            =   "fTest.frx":0000
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    ScaleHeight     =   368
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   403
  18.    Begin AeroSuite.AeroForm AeroForm1 
  19.       Height          =   720
  20.       Left            =   1680
  21.       TabIndex        =   50
  22.       Top             =   4800
  23.       Width           =   720
  24.       _ExtentX        =   1270
  25.       _ExtentY        =   1270
  26.    End
  27.    Begin AeroSuite.AeroButton bAbout 
  28.       Height          =   375
  29.       Left            =   4800
  30.       TabIndex        =   13
  31.       Top             =   4680
  32.       Width           =   1095
  33.       _ExtentX        =   1931
  34.       _ExtentY        =   661
  35.       Caption         =   "About"
  36.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "宋体"
  38.          Size            =   9
  39.          Charset         =   134
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.    End
  46.    Begin MSComctlLib.ImageList ImageList1 
  47.       Left            =   2760
  48.       Top             =   1920
  49.       _ExtentX        =   1005
  50.       _ExtentY        =   1005
  51.       BackColor       =   -2147483643
  52.       ImageWidth      =   16
  53.       ImageHeight     =   16
  54.       MaskColor       =   16711935
  55.       _Version        =   393216
  56.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  57.          NumListImages   =   20
  58.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  59.             Picture         =   "fTest.frx":0442
  60.             Key             =   ""
  61.          EndProperty
  62.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  63.             Picture         =   "fTest.frx":0796
  64.             Key             =   ""
  65.          EndProperty
  66.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  67.             Picture         =   "fTest.frx":0AEA
  68.             Key             =   ""
  69.          EndProperty
  70.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  71.             Picture         =   "fTest.frx":0E3E
  72.             Key             =   ""
  73.          EndProperty
  74.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  75.             Picture         =   "fTest.frx":1192
  76.             Key             =   ""
  77.          EndProperty
  78.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  79.             Picture         =   "fTest.frx":14E6
  80.             Key             =   ""
  81.          EndProperty
  82.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  83.             Picture         =   "fTest.frx":180A
  84.             Key             =   ""
  85.          EndProperty
  86.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "fTest.frx":1B5E
  88.             Key             =   ""
  89.          EndProperty
  90.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  91.             Picture         =   "fTest.frx":1EB2
  92.             Key             =   ""
  93.          EndProperty
  94.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  95.             Picture         =   "fTest.frx":2206
  96.             Key             =   ""
  97.          EndProperty
  98.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  99.             Picture         =   "fTest.frx":255A
  100.             Key             =   ""
  101.          EndProperty
  102.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.             Picture         =   "fTest.frx":27EE
  104.             Key             =   ""
  105.          EndProperty
  106.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.             Picture         =   "fTest.frx":2B42
  108.             Key             =   ""
  109.          EndProperty
  110.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.             Picture         =   "fTest.frx":2E66
  112.             Key             =   ""
  113.          EndProperty
  114.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "fTest.frx":31BA
  116.             Key             =   ""
  117.          EndProperty
  118.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.             Picture         =   "fTest.frx":350E
  120.             Key             =   ""
  121.          EndProperty
  122.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.             Picture         =   "fTest.frx":3862
  124.             Key             =   ""
  125.          EndProperty
  126.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.             Picture         =   "fTest.frx":3B56
  128.             Key             =   ""
  129.          EndProperty
  130.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  131.             Picture         =   "fTest.frx":3E4A
  132.             Key             =   ""
  133.          EndProperty
  134.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  135.             Picture         =   "fTest.frx":419E
  136.             Key             =   ""
  137.          EndProperty
  138.       EndProperty
  139.    End
  140.    Begin VB.Timer Timer1 
  141.       Interval        =   20
  142.       Left            =   1920
  143.       Top             =   1920
  144.    End
  145.    Begin AeroSuite.AeroStatusBar AeroStatusBar1 
  146.       Align           =   2  'Align Bottom
  147.       Height          =   345
  148.       Left            =   0
  149.       ToolTipText     =   "dfdsfdsf21323sd1"
  150.       Top             =   5175
  151.       Width           =   6045
  152.       _ExtentX        =   10663
  153.       _ExtentY        =   609
  154.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  155.          Name            =   "宋体"
  156.          Size            =   9
  157.          Charset         =   134
  158.          Weight          =   400
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Style           =   1
  164.       SimpleText      =   "Copyright ?2007-2008 by Fauzie's Software"
  165.    End
  166.    Begin AeroSuite.AeroTab AeroTab1 
  167.       Height          =   4455
  168.       Left            =   120
  169.       TabIndex        =   0
  170.       Top             =   120
  171.       Width           =   5775
  172.       _ExtentX        =   10186
  173.       _ExtentY        =   7858
  174.       TabCount        =   6
  175.       TabCaption(0)   =   "Tab 0"
  176.       TabCaption(1)   =   "Tab 1"
  177.       TabCaption(2)   =   "Tab 2"
  178.       TabCaption(3)   =   "Tab 3"
  179.       TabCaption(4)   =   "Tab 4"
  180.       TabCaption(5)   =   "Tab 5"
  181.       ActiveTabBackEndColor=   16777215
  182.       ActiveTabBackStartColor=   16777215
  183.       BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  184.          Name            =   "宋体"
  185.          Size            =   9
  186.          Charset         =   134
  187.          Weight          =   400
  188.          Underline       =   0   'False
  189.          Italic          =   0   'False
  190.          Strikethrough   =   0   'False
  191.       EndProperty
  192.       ActiveTabForeColor=   0
  193.       ActiveTabHeight =   26
  194.       BackColor       =   16777215
  195.       BottomRightInnerBorderColor=   10070188
  196.       DisabledTabBackColor=   13355721
  197.       DisabledTabForeColor=   10526880
  198.       InActiveTabBackEndColor=   13619151
  199.       InActiveTabBackStartColor=   15461355
  200.       BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  201.          Name            =   "宋体"
  202.          Size            =   9
  203.          Charset         =   134
  204.          Weight          =   400
  205.          Underline       =   0   'False
  206.          Italic          =   0   'False
  207.          Strikethrough   =   0   'False
  208.       EndProperty
  209.       InActiveTabForeColor=   0
  210.       OuterBorderColor=   9800841
  211.       TopLeftInnerBorderColor=   16777215
  212.       UseMouseWheelScroll=   0   'False
  213.       Begin AeroSuite.AeroTab AeroTab2 
  214.          Height          =   3735
  215.          Left            =   -49760
  216.          TabIndex        =   29
  217.          Top             =   480
  218.          Width           =   5295
  219.          _ExtentX        =   9340
  220.          _ExtentY        =   6588
  221.          TabCount        =   2
  222.          TabCaption(0)   =   "Tab 0"
  223.          TabCaption(1)   =   "Tab 1"
  224.          ActiveTab       =   1
  225.          ActiveTabBackEndColor=   16777215
  226.          ActiveTabBackStartColor=   16777215
  227.          BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  228.             Name            =   "Arial"
  229.             Size            =   9
  230.             Charset         =   0
  231.             Weight          =   400
  232.             Underline       =   0   'False
  233.             Italic          =   0   'False
  234.             Strikethrough   =   0   'False
  235.          EndProperty
  236.          ActiveTabForeColor=   0
  237.          BackColor       =   16777215
  238.          DisabledTabBackColor=   13355721
  239.          DisabledTabForeColor=   10526880
  240.          InActiveTabBackEndColor=   13619151
  241.          InActiveTabBackStartColor=   15461355
  242.          BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  243.             Name            =   "Arial"
  244.             Size            =   9
  245.             Charset         =   0
  246.             Weight          =   400
  247.             Underline       =   0   'False
  248.             Italic          =   0   'False
  249.             Strikethrough   =   0   'False
  250.          EndProperty
  251.          InActiveTabForeColor=   0
  252.          OuterBorderColor=   9800841
  253.          TabStripBackColor=   16777215
  254.          TabStyle        =   1
  255.          Begin AeroSuite.AeroGroupBox AeroGroupBox5 
  256.             Height          =   615
  257.             Left            =   240
  258.             TabIndex        =   46
  259.             Top             =   2880
  260.             Width           =   2895
  261.             _ExtentX        =   5106
  262.             _ExtentY        =   1085
  263.             BackColor       =   16777215
  264.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  265.                Name            =   "Arial"
  266.                Size            =   9
  267.                Charset         =   0
  268.                Weight          =   400
  269.                Underline       =   0   'False
  270.                Italic          =   0   'False
  271.                Strikethrough   =   0   'False
  272.             EndProperty
  273.             Caption         =   "InputBox Result"
  274.             Begin AeroSuite.AeroTextBox tResult 
  275.                Height          =   255
  276.                Left            =   120
  277.                TabIndex        =   47
  278.                Top             =   240
  279.                Width           =   2655
  280.                _ExtentX        =   4683
  281.                _ExtentY        =   450
  282.                BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  283.                   Name            =   "Arial"
  284.                   Size            =   9
  285.                   Charset         =   0
  286.                   Weight          =   400
  287.                   Underline       =   0   'False
  288.                   Italic          =   0   'False
  289.                   Strikethrough   =   0   'False
  290.                EndProperty
  291.                Text            =   ""
  292.             End
  293.          End
  294.          Begin VB.TextBox tPrompt 
  295.             Appearance      =   0  'Flat
  296.             BeginProperty Font 
  297.                Name            =   "Arial"
  298.                Size            =   9
  299.                Charset         =   0
  300.                Weight          =   400
  301.                Underline       =   0   'False
  302.                Italic          =   0   'False
  303.                Strikethrough   =   0   'False
  304.             EndProperty
  305.             Height          =   615
  306.             Left            =   1800
  307.             MultiLine       =   -1  'True
  308.             ScrollBars      =   2  'Vertical
  309.             TabIndex        =   41
  310.             Text            =   "fTest.frx":44F2
  311.             Top             =   840
  312.             Width           =   3255
  313.          End
  314.          Begin AeroSuite.AeroButton bMsgBox 
  315.             Height          =   375
  316.             Left            =   13360
  317.             TabIndex        =   40
  318.             Top             =   3120
  319.             Width           =   1695
  320.             _ExtentX        =   2990
  321.             _ExtentY        =   661
  322.             Caption         =   "Show Dialog"
  323.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  324.                Name            =   "Arial"
  325.                Size            =   9
  326.                Charset         =   0
  327.                Weight          =   400
  328.                Underline       =   0   'False
  329.                Italic          =   0   'False
  330.                Strikethrough   =   0   'False
  331.             EndProperty
  332.          End
  333.          Begin VB.ComboBox cboButton 
  334.             BeginProperty Font 
  335.                Name            =   "Arial"
  336.                Size            =   9
  337.                Charset         =   0
  338.                Weight          =   400
  339.                Underline       =   0   'False
  340.                Italic          =   0   'False
  341.                Strikethrough   =   0   'False
  342.             EndProperty
  343.             Height          =   345
  344.             Left            =   11800
  345.             Style           =   2  'Dropdown List
  346.             TabIndex        =   39
  347.             Top             =   2280
  348.             Width           =   3255
  349.          End
  350.          Begin VB.ComboBox cboIcon 
  351.             BeginProperty Font 
  352.                Name            =   "Arial"
  353.                Size            =   9
  354.                Charset         =   0
  355.                Weight          =   400
  356.                Underline       =   0   'False
  357.                Italic          =   0   'False
  358.                Strikethrough   =   0   'False
  359.             EndProperty
  360.             Height          =   345
  361.             Left            =   11800
  362.             Style           =   2  'Dropdown List
  363.             TabIndex        =   37
  364.             Top             =   1920
  365.             Width           =   3255
  366.          End
  367.          Begin VB.TextBox tContent 
  368.             Appearance      =   0  'Flat
  369.             BeginProperty Font 
  370.                Name            =   "Arial"
  371.                Size            =   9
  372.                Charset         =   0
  373.                Weight          =   400
  374.                Underline       =   0   'False
  375.                Italic          =   0   'False
  376.                Strikethrough   =   0   'False
  377.             EndProperty
  378.             Height          =   615
  379.             Left            =   11800
  380.             MultiLine       =   -1  'True
  381.             ScrollBars      =   2  'Vertical
  382.             TabIndex        =   35
  383.             Text            =   "fTest.frx":452C
  384.             Top             =   1200
  385.             Width           =   3255
  386.          End
  387.          Begin AeroSuite.AeroTextBox tTitle 
  388.             Height          =   255
  389.             Left            =   11800
  390.             TabIndex        =   31
  391.             Top             =   480
  392.             Width           =   3255
  393.             _ExtentX        =   5741
  394.             _ExtentY        =   450
  395.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  396.                Name            =   "Arial"
  397.                Size            =   9
  398.                Charset         =   0
  399.                Weight          =   400
  400.                Underline       =   0   'False
  401.                Italic          =   0   'False
  402.                Strikethrough   =   0   'False
  403.             EndProperty
  404.             Text            =   "Message Box Sample"
  405.          End
  406.          Begin AeroSuite.AeroTextBox tMainIns 
  407.             Height          =   255
  408.             Left            =   11800
  409.             TabIndex        =   33
  410.             Top             =   840
  411.             Width           =   3255
  412.             _ExtentX        =   5741
  413.             _ExtentY        =   450
  414.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  415.                Name            =   "Arial"
  416.                Size            =   9
  417.                Charset         =   0
  418.                Weight          =   400
  419.                Underline       =   0   'False
  420.                Italic          =   0   'False
  421.                Strikethrough   =   0   'False
  422.             EndProperty
  423.             Text            =   "Type The Main Instruction Here!"
  424.          End
  425.          Begin AeroSuite.AeroTextBox tTitle1 
  426.             Height          =   255
  427.             Left            =   1800
  428.             TabIndex        =   42
  429.             Top             =   480
  430.             Width           =   3255
  431.             _ExtentX        =   5741
  432.             _ExtentY        =   450
  433.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  434.                Name            =   "Arial"
  435.                Size            =   9
  436.                Charset         =   0
  437.                Weight          =   400
  438.                Underline       =   0   'False
  439.                Italic          =   0   'False
  440.                Strikethrough   =   0   'False
  441.             EndProperty
  442.             Text            =   "Input Box Sample"
  443.          End
  444.          Begin AeroSuite.AeroButton bInputBox 
  445.             Height          =   375
  446.             Left            =   3360
  447.             TabIndex        =   45
  448.             ToolTipText     =   "Show a Dialog"
  449.             Top             =   3120
  450.             Width           =   1695
  451.             _ExtentX        =   2990
  452.             _ExtentY        =   661
  453.             Caption         =   "Show Dialog"
  454.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  455.                Name            =   "宋体"
  456.                Size            =   9
  457.                Charset         =   134
  458.                Weight          =   400
  459.                Underline       =   0   'False
  460.                Italic          =   0   'False
  461.                Strikethrough   =   0   'False
  462.             EndProperty
  463.          End
  464.          Begin AeroSuite.AeroTextBox tDefault 
  465.             Height          =   255
  466.             Left            =   1800
  467.             TabIndex        =   48
  468.             Top             =   1560
  469.             Width           =   3255
  470.             _ExtentX        =   5741
  471.             _ExtentY        =   450
  472.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  473.                Name            =   "Arial"
  474.                Size            =   9
  475.                Charset         =   0
  476.                Weight          =   400
  477.                Underline       =   0   'False
  478.                Italic          =   0   'False
  479.                Strikethrough   =   0   'False
  480.             EndProperty
  481.             Text            =   "Input Box Sample"
  482.          End
  483.          Begin VB.Label Label5 
  484.             AutoSize        =   -1  'True
  485.             BackColor       =   &H00FFFFFF&
  486.             Caption         =   "&Default Value :"
  487.             BeginProperty Font 
  488.                Name            =   "Arial"
  489.                Size            =   9
  490.                Charset         =   0
  491.                Weight          =   400
  492.                Underline       =   0   'False
  493.                Italic          =   0   'False
  494.                Strikethrough   =   0   'False
  495.             EndProperty
  496.             Height          =   225
  497.             Index           =   7
  498.             Left            =   240
  499.             TabIndex        =   49
  500.             Top             =   1560
  501.             Width           =   1140
  502.          End
  503.          Begin VB.Label Label5 
  504.             AutoSize        =   -1  'True
  505.             BackColor       =   &H00FFFFFF&
  506.             Caption         =   "Message &Title :"
  507.             BeginProperty Font 
  508.                Name            =   "Arial"
  509.                Size            =   9
  510.                Charset         =   0
  511.                Weight          =   400
  512.                Underline       =   0   'False
  513.                Italic          =   0   'False
  514.                Strikethrough   =   0   'False
  515.             EndProperty
  516.             Height          =   225
  517.             Index           =   6
  518.             Left            =   240
  519.             TabIndex        =   44
  520.             Top             =   480
  521.             Width           =   1170
  522.          End
  523.          Begin VB.Label Label5 
  524.             AutoSize        =   -1  'True
  525.             BackColor       =   &H00FFFFFF&
  526.             Caption         =   "&Prompt :"
  527.             BeginProperty Font 
  528.                Name            =   "Arial"
  529.                Size            =   9
  530.                Charset         =   0
  531.                Weight          =   400
  532.                Underline       =   0   'False
  533.                Italic          =   0   'False
  534.                Strikethrough   =   0   'False
  535.             EndProperty
  536.             Height          =   225
  537.             Index           =   5
  538.             Left            =   240
  539.             TabIndex        =   43
  540.             Top             =   840
  541.             Width           =   690
  542.          End
  543.          Begin VB.Label Label5 
  544.             AutoSize        =   -1  'True
  545.             BackColor       =   &H00FFFFFF&
  546.             Caption         =   "Buttons :"
  547.             BeginProperty Font 
  548.                Name            =   "Arial"
  549.                Size            =   9
  550.                Charset         =   0
  551.                Weight          =   400
  552.                Underline       =   0   'False
  553.                Italic          =   0   'False
  554.                Strikethrough   =   0   'False
  555.             EndProperty
  556.             Height          =   225
  557.             Index           =   4
  558.             Left            =   10240
  559.             TabIndex        =   38
  560.             Top             =   2280
  561.             Width           =   705
  562.          End
  563.          Begin VB.Label Label5 
  564.             AutoSize        =   -1  'True
  565.             BackColor       =   &H00FFFFFF&
  566.             Caption         =   "Display &Icon :"
  567.             BeginProperty Font 
  568.                Name            =   "Arial"
  569.                Size            =   9
  570.                Charset         =   0
  571.                Weight          =   400
  572.                Underline       =   0   'False
  573.                Italic          =   0   'False
  574.                Strikethrough   =   0   'False
  575.             EndProperty
  576.             Height          =   225
  577.             Index           =   3
  578.             Left            =   10240
  579.             TabIndex        =   36
  580.             Top             =   1920
  581.             Width           =   1050
  582.          End
  583.          Begin VB.Label Label5 
  584.             AutoSize        =   -1  'True
  585.             BackColor       =   &H00FFFFFF&
  586.             Caption         =   "Message &Content :"
  587.             BeginProperty Font 
  588.                Name            =   "Arial"
  589.                Size            =   9
  590.                Charset         =   0
  591.                Weight          =   400
  592.                Underline       =   0   'False
  593.                Italic          =   0   'False
  594.                Strikethrough   =   0   'False
  595.             EndProperty
  596.             Height          =   225
  597.             Index           =   2
  598.             Left            =   10240
  599.             TabIndex        =   34
  600.             Top             =   1200
  601.             Width           =   1470
  602.          End
  603.          Begin VB.Label Label5 
  604.             AutoSize        =   -1  'True
  605.             BackColor       =   &H00FFFFFF&
  606.             Caption         =   "&Main Instruction :"
  607.             BeginProperty Font 
  608.                Name            =   "Arial"
  609.                Size            =   9
  610.                Charset         =   0
  611.                Weight          =   400
  612.                Underline       =   0   'False
  613.                Italic          =   0   'False
  614.                Strikethrough   =   0   'False
  615.             EndProperty
  616.             Height          =   225
  617.             Index           =   1
  618.             Left            =   10240
  619.             TabIndex        =   32
  620.             Top             =   840
  621.             Width           =   1395
  622.          End
  623.          Begin VB.Label Label5 
  624.             AutoSize        =   -1  'True
  625.             BackColor       =   &H00FFFFFF&
  626.             Caption         =   "Message &Title :"
  627.             BeginProperty Font 
  628.                Name            =   "Arial"
  629.                Size            =   9
  630.                Charset         =   0
  631.                Weight          =   400
  632.                Underline       =   0   'False
  633.                Italic          =   0   'False
  634.                Strikethrough   =   0   'False
  635.             EndProperty
  636.             Height          =   225
  637.             Index           =   0
  638.             Left            =   10240
  639.             TabIndex        =   30
  640.             Top             =   480
  641.             Width           =   1170
  642.          End
  643.       End
  644.       Begin AeroSuite.AeroTextBox AeroTextBox1 
  645.          Height          =   255
  646.          Index           =   0
  647.          Left            =   -9640
  648.          TabIndex        =   26
  649.          Top             =   720
  650.          Width           =   5055
  651.          _ExtentX        =   8916
  652.          _ExtentY        =   450
  653.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  654.             Name            =   "Arial"
  655.             Size            =   9
  656.             Charset         =   0
  657.             Weight          =   400
  658.             Underline       =   0   'False
  659.             Italic          =   0   'False
  660.             Strikethrough   =   0   'False
  661.          EndProperty
  662.          Text            =   "AeroTextBox1"
  663.       End
  664.       Begin AeroSuite.AeroGroupBox AeroGroupBox4 
  665.          Height          =   2175
  666.          Left            =   240
  667.          TabIndex        =   16
  668.          Top             =   2040
  669.          Width           =   2535
  670.          _ExtentX        =   4471
  671.          _ExtentY        =   3836
  672.          BackColor       =   16777215
  673.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  674.             Name            =   "Arial"
  675.             Size            =   9
  676.             Charset         =   0
  677.             Weight          =   400
  678.             Underline       =   0   'False
  679.             Italic          =   0   'False
  680.             Strikethrough   =   0   'False
  681.          EndProperty
  682.          Caption         =   "Multiline"
  683.          Begin AeroSuite.AeroOptionButton AeroOptionButton1 
  684.             Height          =   495
  685.             Left            =   240
  686.             TabIndex        =   19
  687.             Top             =   1560
  688.             Width           =   2175
  689.             _ExtentX        =   3836
  690.             _ExtentY        =   873
  691.             Align           =   0
  692.             Caption         =   "AeroOptionButton1"
  693.             Enabled         =   -1  'True
  694.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  695.                Name            =   "Arial"
  696.                Size            =   9
  697.                Charset         =   0
  698.                Weight          =   400
  699.                Underline       =   0   'False
  700.                Italic          =   0   'False
  701.                Strikethrough   =   0   'False
  702.             EndProperty
  703.             ShowFocusRect   =   -1  'True
  704.             BackColor       =   16777215
  705.             ForeColor       =   0
  706.             MousePointer    =   0
  707.             MouseIcon       =   "fTest.frx":4566
  708.             Value           =   0   'False
  709.          End
  710.          Begin AeroSuite.AeroButton AeroButton4 
  711.             Height          =   495
  712.             Left            =   240
  713.             TabIndex        =   17
  714.             Top             =   360
  715.             Width           =   2055
  716.             _ExtentX        =   3625
  717.             _ExtentY        =   873
  718.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  719.                Name            =   "Arial"
  720.                Size            =   9
  721.                Charset         =   0
  722.                Weight          =   400
  723.                Underline       =   0   'False
  724.                Italic          =   0   'False
  725.                Strikethrough   =   0   'False
  726.             EndProperty
  727.          End
  728.          Begin AeroSuite.AeroCheckBox AeroCheckBox5 
  729.             Height          =   495
  730.             Left            =   240
  731.             TabIndex        =   18
  732.             Top             =   960
  733.             Width           =   2055
  734.             _ExtentX        =   3625
  735.             _ExtentY        =   873
  736.             Align           =   0
  737.             Caption         =   "AeroCheckBox5"
  738.             Enabled         =   -1  'True
  739.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  740.                Name            =   "Arial"
  741.                Size            =   9
  742.                Charset         =   0
  743.                Weight          =   400
  744.                Underline       =   0   'False
  745.                Italic          =   0   'False
  746.                Strikethrough   =   0   'False
  747.             EndProperty
  748.             ShowFocusRect   =   -1  'True
  749.             BackColor       =   16777215
  750.             ForeColor       =   0
  751.             MousePointer    =   0
  752.             MouseIcon       =   "fTest.frx":4582
  753.             Value           =   0
  754.          End
  755.       End
  756.       Begin AeroSuite.AeroCheckBox AeroCheckBox4 
  757.          Height          =   375
  758.          Left            =   -26040
  759.          TabIndex        =   11
  760.          Top             =   720
  761.          Width           =   1455
  762.          _ExtentX        =   2566
  763.          _ExtentY        =   661
  764.          Align           =   0
  765.          Caption         =   "Enabled"
  766.          Enabled         =   -1  'True
  767.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  768.             Name            =   "Arial"
  769.             Size            =   9
  770.             Charset         =   0
  771.             Weight          =   400
  772.             Underline       =   0   'False
  773.             Italic          =   0   'False
  774.             Strikethrough   =   0   'False
  775.          EndProperty
  776.          ShowFocusRect   =   -1  'True
  777.          BackColor       =   16777215
  778.          ForeColor       =   0
  779.          MousePointer    =   0
  780.          MouseIcon       =   "fTest.frx":459E
  781.          Value           =   1
  782.       End
  783.       Begin AeroSuite.AeroGroupBox AeroGroupBox1 
  784.          Height          =   1455
  785.          Left            =   240
  786.          TabIndex        =   1
  787.          Top             =   480
  788.          Width           =   2535
  789.          _ExtentX        =   4471
  790.          _ExtentY        =   2566
  791.          BackColor       =   16777215
  792.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  793.             Name            =   "Arial"
  794.             Size            =   9
  795.             Charset         =   0
  796.             Weight          =   400
  797.             Underline       =   0   'False
  798.             Italic          =   0   'False
  799.             Strikethrough   =   0   'False
  800.          EndProperty
  801.          Caption         =   "Regular Buttons"
  802.          Begin AeroSuite.AeroButton AeroButton1 
  803.             Height          =   375
  804.             Left            =   240
  805.             TabIndex        =   2
  806.             Top             =   360
  807.             Width           =   2055
  808.             _ExtentX        =   3625
  809.             _ExtentY        =   661
  810.             Caption         =   "Standard Button"
  811.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  812.                Name            =   "Arial"
  813.                Size            =   9
  814.                Charset         =   0
  815.                Weight          =   400
  816.                Underline       =   0   'False
  817.                Italic          =   0   'False
  818.                Strikethrough   =   0   'False
  819.             EndProperty
  820.          End
  821.          Begin AeroSuite.AeroButton AeroButton2 
  822.             Height          =   375
  823.             Left            =   240
  824.             TabIndex        =   3
  825.             Top             =   840
  826.             Width           =   2055
  827.             _ExtentX        =   3625
  828.             _ExtentY        =   661
  829.             Caption         =   "Button with picture"
  830.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  831.                Name            =   "Arial"
  832.                Size            =   9
  833.                Charset         =   0
  834.                Weight          =   400
  835.                Underline       =   0   'False
  836.                Italic          =   0   'False
  837.                Strikethrough   =   0   'False
  838.             EndProperty
  839.             MaskColor       =   16711935
  840.             PicNormal       =   "fTest.frx":45BA
  841.             PicSizeH        =   16
  842.             PicSizeW        =   16
  843.          End
  844.       End
  845.       Begin AeroSuite.AeroGroupBox AeroGroupBox2 
  846.          Height          =   1455
  847.          Left            =   3000
  848.          TabIndex        =   4
  849.          Top             =   480
  850.          Width           =   2535
  851.          _ExtentX        =   4471
  852.          _ExtentY        =   2566
  853.          BackColor       =   16777215
  854.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  855.             Name            =   "Arial"
  856.             Size            =   9
  857.             Charset         =   0
  858.             Weight          =   400
  859.             Underline       =   0   'False
  860.             Italic          =   0   'False
  861.             Strikethrough   =   0   'False
  862.          EndProperty
  863.          Caption         =   "CheckBoxes"
  864.          Begin AeroSuite.AeroCheckBox AeroCheckBox1 
  865.             Height          =   375
  866.             Left            =   240
  867.             TabIndex        =   5
  868.             Top             =   240
  869.             Width           =   2055
  870.             _ExtentX        =   3625
  871.             _ExtentY        =   661
  872.             Align           =   0
  873.             Caption         =   "Unchecked"
  874.             Enabled         =   -1  'True
  875.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  876.                Name            =   "Arial"
  877.                Size            =   9
  878.                Charset         =   0
  879.                Weight          =   400
  880.                Underline       =   0   'False
  881.                Italic          =   0   'False
  882.                Strikethrough   =   0   'False
  883.             EndProperty
  884.             ShowFocusRect   =   -1  'True
  885.             BackColor       =   16777215
  886.             ForeColor       =   0
  887.             MousePointer    =   0
  888.             MouseIcon       =   "fTest.frx":490E
  889.             Value           =   0
  890.          End
  891.          Begin AeroSuite.AeroCheckBox AeroCheckBox2 
  892.             Height          =   375
  893.             Left            =   240
  894.             TabIndex        =   6
  895.             Top             =   600
  896.             Width           =   2055
  897.             _ExtentX        =   3625
  898.             _ExtentY        =   661
  899.             Align           =   0
  900.             Caption         =   "Checked"
  901.             Enabled         =   -1  'True
  902.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  903.                Name            =   "Arial"
  904.                Size            =   9
  905.                Charset         =   0
  906.                Weight          =   400
  907.                Underline       =   0   'False
  908.                Italic          =   0   'False
  909.                Strikethrough   =   0   'False
  910.             EndProperty
  911.             ShowFocusRect   =   -1  'True
  912.             BackColor       =   16777215
  913.             ForeColor       =   0
  914.             MousePointer    =   0
  915.             MouseIcon       =   "fTest.frx":492A
  916.             Value           =   1
  917.          End
  918.          Begin AeroSuite.AeroCheckBox AeroCheckBox3 
  919.             Height          =   375
  920.             Left            =   240
  921.             TabIndex        =   7
  922.             Top             =   960
  923.             Width           =   2055
  924.             _ExtentX        =   3625
  925.             _ExtentY        =   661
  926.             Align           =   0
  927.             Caption         =   "Grayed"
  928.             Enabled         =   -1  'True
  929.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  930.                Name            =   "Arial"
  931.                Size            =   9
  932.                Charset         =   0
  933.                Weight          =   400
  934.                Underline       =   0   'False
  935.                Italic          =   0   'False
  936.                Strikethrough   =   0   'False
  937.             EndProperty
  938.             ShowFocusRect   =   -1  'True
  939.             BackColor       =   16777215
  940.             ForeColor       =   0
  941.             MousePointer    =   0
  942.             MouseIcon       =   "fTest.frx":4946
  943.             Value           =   2
  944.          End
  945.       End
  946.       Begin AeroSuite.AeroGroupBox AeroGroupBox3 
  947.          Height          =   1455
  948.          Left            =   3000
  949.          TabIndex        =   8
  950.          Top             =   2040
  951.          Width           =   2535
  952.          _ExtentX        =   4471
  953.          _ExtentY        =   2566
  954.          BackColor       =   16777215
  955.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  956.             Name            =   "Arial"
  957.             Size            =   9
  958.             Charset         =   0
  959.             Weight          =   400
  960.             Underline       =   0   'False
  961.             Italic          =   0   'False
  962.             Strikethrough   =   0   'False
  963.          EndProperty
  964.          Caption         =   "Option Buttons"
  965.          Begin AeroSuite.AeroOptionButton AeroOptionButton2 
  966.             Height          =   375
  967.             Index           =   0
  968.             Left            =   240
  969.             TabIndex        =   20
  970.             Top             =   240
  971.             Width           =   2055
  972.             _ExtentX        =   3625
  973.             _ExtentY        =   661
  974.             Align           =   0
  975.             Caption         =   "Option 1"
  976.             Enabled         =   -1  'True
  977.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  978.                Name            =   "Arial"
  979.                Size            =   9
  980.                Charset         =   0
  981.                Weight          =   400
  982.                Underline       =   0   'False
  983.                Italic          =   0   'False
  984.                Strikethrough   =   0   'False
  985.             EndProperty
  986.             ShowFocusRect   =   -1  'True
  987.             BackColor       =   16777215
  988.             ForeColor       =   0
  989.             MousePointer    =   0
  990.             MouseIcon       =   "fTest.frx":4962
  991.             Value           =   0   'False
  992.          End
  993.          Begin AeroSuite.AeroOptionButton AeroOptionButton2 
  994.             Height          =   375
  995.             Index           =   1
  996.             Left            =   240
  997.             TabIndex        =   21
  998.             Top             =   600
  999.             Width           =   2055
  1000.             _ExtentX        =   3625
  1001.             _ExtentY        =   661
  1002.             Align           =   0
  1003.             Caption         =   "Option 2"
  1004.             Enabled         =   -1  'True
  1005.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1006.                Name            =   "Arial"
  1007.                Size            =   9
  1008.                Charset         =   0
  1009.                Weight          =   400
  1010.                Underline       =   0   'False
  1011.                Italic          =   0   'False
  1012.                Strikethrough   =   0   'False
  1013.             EndProperty
  1014.             ShowFocusRect   =   -1  'True
  1015.             BackColor       =   16777215
  1016.             ForeColor       =   0
  1017.             MousePointer    =   0
  1018.             MouseIcon       =   "fTest.frx":497E
  1019.             Value           =   0   'False
  1020.          End
  1021.          Begin AeroSuite.AeroOptionButton AeroOptionButton2 
  1022.             Height          =   375
  1023.             Index           =   2
  1024.             Left            =   240
  1025.             TabIndex        =   22
  1026.             Top             =   960
  1027.             Width           =   2055
  1028.             _ExtentX        =   3625
  1029.             _ExtentY        =   661
  1030.             Align           =   0
  1031.             Caption         =   "Option 3"
  1032.             Enabled         =   -1  'True
  1033.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1034.                Name            =   "Arial"
  1035.                Size            =   9
  1036.                Charset         =   0
  1037.                Weight          =   400
  1038.                Underline       =   0   'False
  1039.                Italic          =   0   'False
  1040.                Strikethrough   =   0   'False
  1041.             EndProperty
  1042.             ShowFocusRect   =   -1  'True
  1043.             BackColor       =   16777215
  1044.             ForeColor       =   0
  1045.             MousePointer    =   0
  1046.             MouseIcon       =   "fTest.frx":499A
  1047.             Value           =   0   'False
  1048.          End
  1049.       End
  1050.       Begin AeroSuite.AeroProgressBar AeroProgressBar1 
  1051.          Height          =   270
  1052.          Left            =   -39520
  1053.          Top             =   840
  1054.          Width           =   4815
  1055.          _ExtentX        =   8493
  1056.          _ExtentY        =   476
  1057.       End
  1058.       Begin AeroSuite.AeroProgressBar AeroProgressBar2 
  1059.          Height          =   270
  1060.          Left            =   -39520
  1061.          Top             =   1680
  1062.          Width           =   4815
  1063.          _ExtentX        =   8493
  1064.          _ExtentY        =   476
  1065.          Value           =   0
  1066.          MarqueeStyle    =   -1  'True
  1067.       End
  1068.       Begin AeroSuite.AeroScrollbar AeroHScrollbar1 
  1069.          Height          =   255
  1070.          Left            =   -29760
  1071.          TabIndex        =   14
  1072.          Top             =   3360
  1073.          Width           =   2895
  1074.          _ExtentX        =   5106
  1075.          _ExtentY        =   450
  1076.          LargeChange     =   30
  1077.          Orientation     =   1
  1078.       End
  1079.       Begin AeroSuite.AeroScrollbar AeroVScrollbar1 
  1080.          Height          =   2895
  1081.          Left            =   -26880
  1082.          TabIndex        =   15
  1083.          Top             =   480
  1084.          Width           =   255
  1085.          _ExtentX        =   450
  1086.          _ExtentY        =   5106
  1087.          LargeChange     =   30
  1088.       End
  1089.       Begin AeroSuite.AeroListBox AeroListBox1 
  1090.          Height          =   2760
  1091.          Left            =   -19760
  1092.          TabIndex        =   12
  1093.          Top             =   840
  1094.          Width           =   2535
  1095.          _ExtentX        =   4471
  1096.          _ExtentY        =   4868
  1097.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1098.             Name            =   "Arial"
  1099.             Size            =   9
  1100.             Charset         =   0
  1101.             Weight          =   400
  1102.             Underline       =   0   'False
  1103.             Italic          =   0   'False
  1104.             Strikethrough   =   0   'False
  1105.          EndProperty
  1106.          ItemHeight      =   20
  1107.          ItemHeightAuto  =   0   'False
  1108.       End
  1109.       Begin AeroSuite.AeroListBox AeroListBox2 
  1110.          Height          =   2760
  1111.          Left            =   -17000
  1112.          TabIndex        =   23
  1113.          Top             =   840
  1114.          Width           =   2535
  1115.          _ExtentX        =   4471
  1116.          _ExtentY        =   4868
  1117.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1118.             Name            =   "Arial"
  1119.             Size            =   9
  1120.             Charset         =   0
  1121.             Weight          =   400
  1122.             Underline       =   0   'False
  1123.             Italic          =   0   'False
  1124.             Strikethrough   =   0   'False
  1125.          EndProperty
  1126.          ItemHeight      =   18
  1127.       End
  1128.       Begin AeroSuite.AeroTextBox AeroTextBox1 
  1129.          Height          =   345
  1130.          Index           =   1
  1131.          Left            =   -9640
  1132.          TabIndex        =   27
  1133.          Top             =   1320
  1134.          Width           =   5055
  1135.          _ExtentX        =   8916
  1136.          _ExtentY        =   609
  1137.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1138.             Name            =   "Arial"
  1139.             Size            =   12
  1140.             Charset         =   0
  1141.             Weight          =   400
  1142.             Underline       =   0   'False
  1143.             Italic          =   0   'False
  1144.             Strikethrough   =   0   'False
  1145.          EndProperty
  1146.          Text            =   "AeroTextBox2"
  1147.       End
  1148.       Begin VB.Label Label4 
  1149.          BackColor       =   &H00FFFFFF&
  1150.          Caption         =   "I'm sorry. The text box doesn't support multiline and scrollbars for now. May be on next update it does."
  1151.          BeginProperty Font 
  1152.             Name            =   "Arial"
  1153.             Size            =   9
  1154.             Charset         =   0
  1155.             Weight          =   400
  1156.             Underline       =   0   'False
  1157.             Italic          =   0   'False
  1158.             Strikethrough   =   0   'False
  1159.          EndProperty
  1160.          Height          =   495
  1161.          Left            =   -9640
  1162.          TabIndex        =   28
  1163.          Top             =   3600
  1164.          Width           =   5055
  1165.       End
  1166.       Begin VB.Label Label3 
  1167.          BackColor       =   &H00FFFFFF&
  1168.          Caption         =   "Without Icon:"
  1169.          BeginProperty Font 
  1170.             Name            =   "Arial"
  1171.             Size            =   9
  1172.             Charset         =   0
  1173.             Weight          =   400
  1174.             Underline       =   0   'False
  1175.             Italic          =   0   'False
  1176.             Strikethrough   =   0   'False
  1177.          EndProperty
  1178.          Height          =   255
  1179.          Index           =   1
  1180.          Left            =   -17000
  1181.          TabIndex        =   25
  1182.          Top             =   600
  1183.          Width           =   2535
  1184.       End
  1185.       Begin VB.Label Label3 
  1186.          BackColor       =   &H00FFFFFF&
  1187.          Caption         =   "With Icon:"
  1188.          BeginProperty Font 
  1189.             Name            =   "Arial"
  1190.             Size            =   9
  1191.             Charset         =   0
  1192.             Weight          =   400
  1193.             Underline       =   0   'False
  1194.             Italic          =   0   'False
  1195.             Strikethrough   =   0   'False
  1196.          EndProperty
  1197.          Height          =   255
  1198.          Index           =   0
  1199.          Left            =   -19760
  1200.          TabIndex        =   24
  1201.          Top             =   600
  1202.          Width           =   2535
  1203.       End
  1204.       Begin VB.Label Label2 
  1205.          AutoSize        =   -1  'True
  1206.          BackStyle       =   0  'Transparent
  1207.          Caption         =   "Marquee Style ProgressBar"
  1208.          BeginProperty Font 
  1209.             Name            =   "Arial"
  1210.             Size            =   9
  1211.             Charset         =   0
  1212.             Weight          =   400
  1213.             Underline       =   0   'False
  1214.             Italic          =   0   'False
  1215.             Strikethrough   =   0   'False
  1216.          EndProperty
  1217.          Height          =   225
  1218.          Left            =   -39760
  1219.          TabIndex        =   10
  1220.          Top             =   1320
  1221.          Width           =   2100
  1222.       End
  1223.       Begin VB.Label Label1 
  1224.          AutoSize        =   -1  'True
  1225.          BackStyle       =   0  'Transparent
  1226.          Caption         =   "Standard ProgressBar"
  1227.          BeginProperty Font 
  1228.             Name            =   "Arial"
  1229.             Size            =   9
  1230.             Charset         =   0
  1231.             Weight          =   400
  1232.             Underline       =   0   'False
  1233.             Italic          =   0   'False
  1234.             Strikethrough   =   0   'False
  1235.          EndProperty
  1236.          Height          =   225
  1237.          Left            =   -39760
  1238.          TabIndex        =   9
  1239.          Top             =   480
  1240.          Width           =   1680
  1241.       End
  1242.    End
  1243. End
  1244. Attribute VB_Name = "fTest"
  1245. Attribute VB_GlobalNameSpace = False
  1246. Attribute VB_Creatable = False
  1247. Attribute VB_PredeclaredId = True
  1248. Attribute VB_Exposed = False
  1249. Private Sub AeroCheckBox4_Click()
  1250.   AeroVScrollbar1.Enabled = Abs(AeroCheckBox4.Value)
  1251.   AeroHScrollbar1.Enabled = Abs(AeroCheckBox4.Value)
  1252. End Sub
  1253. Private Sub AeroForm1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  1254.     Debug.Print "sdfds23"
  1255. End Sub
  1256. Private Sub bAbout_Click()
  1257.   bAbout.AboutBox
  1258. End Sub
  1259. Private Sub bInputBox_Click()
  1260.   tResult.Text = AeroForm1.ShowInputBox(tPrompt.Text, tDefault.Text, tTitle1.Text)
  1261. End Sub
  1262. Private Sub bMsgBox_Click()
  1263.   AeroForm1.ShowMsgBox tMainIns.Text, tContent.Text, cboButton.ListIndex, cboIcon.ListIndex, tTitle.Text
  1264. End Sub
  1265. Private Sub Form_Load()
  1266.   AeroTab1.TabCaption(0) = "Buttons"
  1267.   AeroTab1.TabCaption(1) = "TextBox"
  1268.   AeroTab1.TabCaption(2) = "ListBox"
  1269.   AeroTab1.TabCaption(3) = "ScrollBar"
  1270.   AeroTab1.TabCaption(4) = "ProgressBar"
  1271.   AeroTab1.TabCaption(5) = "DialogBoxes"
  1272.   AeroTab2.TabCaption(0) = "Message Box"
  1273.   AeroTab2.TabCaption(1) = "Input Box"
  1274.   
  1275.   AeroListBox1.SetImageList ImageList1
  1276.   Randomize
  1277.   For i = 0 To 500
  1278.     AeroListBox1.AddItem "This is item " & i, Int(Rnd * 20) + 1
  1279.     AeroListBox2.AddItem "This is item " & i
  1280.   Next
  1281.   AeroButton4.Caption = "This is a button" & vbCrLf & "with multiline text"
  1282.   AeroCheckBox5.Caption = "This is a checkbox" & vbCrLf & "with multiline text"
  1283.   AeroOptionButton1.Caption = "This is an optionbutton" & vbCrLf & "with multiline text"
  1284.   
  1285.   cboIcon.AddItem "iNone"
  1286.   cboIcon.AddItem "iWarning"
  1287.   cboIcon.AddItem "iError"
  1288.   cboIcon.AddItem "iInformation"
  1289.   cboIcon.AddItem "iQuestion"
  1290.   cboIcon.ListIndex = 3
  1291.   cboButton.AddItem "bOKOnly"
  1292.   cboButton.AddItem "bOKCancel"
  1293.   cboButton.AddItem "bYesNo"
  1294.   cboButton.AddItem "bYesNoCancel"
  1295.   cboButton.AddItem "bRetryCancel"
  1296.   cboButton.AddItem "bAbortRetryIgnore"
  1297.   cboButton.ListIndex = 0
  1298. End Sub
  1299. Private Sub Timer1_Timer()
  1300.   If AeroProgressBar2.Value < AeroProgressBar2.Max Then
  1301.     AeroProgressBar2.Value = AeroProgressBar2.Value + 1
  1302.   Else
  1303.     AeroProgressBar2.Value = 0
  1304.   End If
  1305. End Sub