home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / isButton_320957512312007.psc / isButton_3_7_0 / frmButtonTest.frm next >
Text File  |  2007-12-31  |  68KB  |  1,990 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmButtonTest 
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "isButton 3.7.0 Test"
  7.    ClientHeight    =   5265
  8.    ClientLeft      =   45
  9.    ClientTop       =   315
  10.    ClientWidth     =   9090
  11.    BeginProperty Font 
  12.       Name            =   "Verdana"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "frmButtonTest.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   351
  25.    ScaleMode       =   3  'Pixel
  26.    ScaleWidth      =   606
  27.    ShowInTaskbar   =   0   'False
  28.    StartUpPosition =   3  'Windows Default
  29.    Begin isButtonTest.isButton isButton1 
  30.       Height          =   375
  31.       Left            =   7440
  32.       TabIndex        =   68
  33.       Top             =   480
  34.       Width           =   1095
  35.       _ExtentX        =   1931
  36.       _ExtentY        =   661
  37.       Icon            =   "frmButtonTest.frx":000C
  38.       Style           =   0
  39.       Caption         =   "isButton1"
  40.       iNonThemeStyle  =   0
  41.       Object.ToolTipText     =   ""
  42.       ToolTipTitle    =   ""
  43.       ToolTipIcon     =   0
  44.       ToolTipType     =   1
  45.       ttForeColor     =   0
  46.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  47.          Name            =   "Verdana"
  48.          Size            =   8.25
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       MaskColor       =   0
  56.       RoundedBordersByTheme=   0   'False
  57.    End
  58.    Begin isButtonTest.isButton cmdArray 
  59.       Height          =   615
  60.       Index           =   0
  61.       Left            =   3720
  62.       TabIndex        =   66
  63.       Top             =   1920
  64.       Width           =   1575
  65.       _ExtentX        =   2778
  66.       _ExtentY        =   1085
  67.       Icon            =   "frmButtonTest.frx":0028
  68.       Style           =   9
  69.       Caption         =   "With Multiline Text!!!!"
  70.       CaptionAlign    =   2
  71.       BackColor       =   12632256
  72.       HighlightColor  =   16777215
  73.       FontHighlightColor=   -2147483635
  74.       Object.ToolTipText     =   ""
  75.       ToolTipTitle    =   "isButton Tooltip"
  76.       ToolTipIcon     =   2
  77.       ToolTipType     =   -2147483624
  78.       ttBackColor     =   -2147483624
  79.       ttForeColor     =   -2147483625
  80.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  81.          Name            =   "Arial Unicode MS"
  82.          Size            =   8.25
  83.          Charset         =   136
  84.          Weight          =   700
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       UseMaskColor    =   -1  'True
  90.    End
  91.    Begin isButtonTest.isButton cmdMore 
  92.       Default         =   -1  'True
  93.       Height          =   375
  94.       Left            =   5400
  95.       TabIndex        =   67
  96.       Top             =   4800
  97.       Width           =   1695
  98.       _ExtentX        =   2990
  99.       _ExtentY        =   661
  100.       Icon            =   "frmButtonTest.frx":013A
  101.       Style           =   8
  102.       Caption         =   "More"
  103.       IconAlign       =   2
  104.       iNonThemeStyle  =   0
  105.       Object.ToolTipText     =   ""
  106.       ToolTipTitle    =   ""
  107.       ToolTipIcon     =   0
  108.       ToolTipType     =   1
  109.       ttForeColor     =   0
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "Verdana"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       MaskColor       =   0
  120.    End
  121.    Begin MSComDlg.CommonDialog dlgColor 
  122.       Left            =   8280
  123.       Top             =   0
  124.       _ExtentX        =   847
  125.       _ExtentY        =   847
  126.       _Version        =   393216
  127.       CancelError     =   -1  'True
  128.       FontName        =   "Verdana"
  129.    End
  130.    Begin isButtonTest.isButton cmdStyle 
  131.       Height          =   375
  132.       Index           =   0
  133.       Left            =   120
  134.       TabIndex        =   8
  135.       Top             =   120
  136.       Width           =   1815
  137.       _ExtentX        =   3201
  138.       _ExtentY        =   661
  139.       Icon            =   "frmButtonTest.frx":0294
  140.       Style           =   0
  141.       Caption         =   "Win 9X"
  142.       BackColor       =   15790320
  143.       HighlightColor  =   8812135
  144.       Object.ToolTipText     =   ""
  145.       ToolTipTitle    =   ""
  146.       ToolTipIcon     =   0
  147.       ToolTipType     =   -2147483624
  148.       ttBackColor     =   -2147483624
  149.       ttForeColor     =   -2147483625
  150.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.          Name            =   "Verdana"
  152.          Size            =   8.25
  153.          Charset         =   0
  154.          Weight          =   400
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       MaskColor       =   16711935
  160.       UseMaskColor    =   -1  'True
  161.    End
  162.    Begin isButtonTest.isButton cmdArray 
  163.       Height          =   570
  164.       Index           =   4
  165.       Left            =   4800
  166.       TabIndex        =   3
  167.       Top             =   1170
  168.       Width           =   735
  169.       _ExtentX        =   1296
  170.       _ExtentY        =   1005
  171.       Icon            =   "frmButtonTest.frx":05E6
  172.       Style           =   5
  173.       Caption         =   "Docs"
  174.       IconAlign       =   3
  175.       CaptionAlign    =   4
  176.       BackColor       =   15790320
  177.       HighlightColor  =   8812135
  178.       Object.ToolTipText     =   ""
  179.       ToolTipTitle    =   "isButton Tooltip"
  180.       ToolTipIcon     =   3
  181.       ToolTipType     =   1
  182.       ttBackColor     =   -2147483624
  183.       ttForeColor     =   -2147483625
  184.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  185.          Name            =   "Verdana"
  186.          Size            =   8.25
  187.          Charset         =   0
  188.          Weight          =   400
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.    End
  194.    Begin isButtonTest.isButton cmdArray 
  195.       Height          =   570
  196.       Index           =   2
  197.       Left            =   3120
  198.       TabIndex        =   1
  199.       Top             =   1170
  200.       Width           =   735
  201.       _ExtentX        =   1296
  202.       _ExtentY        =   1005
  203.       Icon            =   "frmButtonTest.frx":1638
  204.       Style           =   4
  205.       Caption         =   "Mail"
  206.       IconAlign       =   3
  207.       CaptionAlign    =   4
  208.       BackColor       =   15790320
  209.       HighlightColor  =   8812135
  210.       Object.ToolTipText     =   ""
  211.       ToolTipTitle    =   "isButton Tooltip"
  212.       ToolTipIcon     =   1
  213.       ToolTipType     =   1
  214.       ttBackColor     =   -2147483624
  215.       ttForeColor     =   -2147483625
  216.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  217.          Name            =   "Verdana"
  218.          Size            =   8.25
  219.          Charset         =   0
  220.          Weight          =   400
  221.          Underline       =   0   'False
  222.          Italic          =   0   'False
  223.          Strikethrough   =   0   'False
  224.       EndProperty
  225.    End
  226.    Begin isButtonTest.isButton cmdArray 
  227.       Height          =   570
  228.       Index           =   7
  229.       Left            =   7320
  230.       TabIndex        =   6
  231.       Top             =   1170
  232.       Width           =   735
  233.       _ExtentX        =   1296
  234.       _ExtentY        =   1005
  235.       Icon            =   "frmButtonTest.frx":268A
  236.       Style           =   9
  237.       Caption         =   "html"
  238.       IconAlign       =   3
  239.       CaptionAlign    =   4
  240.       BackColor       =   15790320
  241.       HighlightColor  =   8812135
  242.       Object.ToolTipText     =   ""
  243.       ToolTipTitle    =   "isButton Tooltip"
  244.       ToolTipIcon     =   2
  245.       ToolTipType     =   -2147483624
  246.       ttBackColor     =   -2147483624
  247.       ttForeColor     =   -2147483625
  248.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  249.          Name            =   "Verdana"
  250.          Size            =   8.25
  251.          Charset         =   0
  252.          Weight          =   400
  253.          Underline       =   0   'False
  254.          Italic          =   0   'False
  255.          Strikethrough   =   0   'False
  256.       EndProperty
  257.    End
  258.    Begin isButtonTest.isButton cmdArray 
  259.       Height          =   570
  260.       Index           =   6
  261.       Left            =   6480
  262.       TabIndex        =   5
  263.       Top             =   1170
  264.       Width           =   735
  265.       _ExtentX        =   1296
  266.       _ExtentY        =   1005
  267.       Icon            =   "frmButtonTest.frx":36DC
  268.       Style           =   8
  269.       Caption         =   "Folder"
  270.       IconAlign       =   3
  271.       CaptionAlign    =   4
  272.       BackColor       =   15790320
  273.       HighlightColor  =   8812135
  274.       Object.ToolTipText     =   ""
  275.       ToolTipTitle    =   "isButton Tooltip"
  276.       ToolTipIcon     =   1
  277.       ToolTipType     =   1
  278.       ttBackColor     =   -2147483624
  279.       ttForeColor     =   -2147483625
  280.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  281.          Name            =   "Verdana"
  282.          Size            =   8.25
  283.          Charset         =   0
  284.          Weight          =   400
  285.          Underline       =   0   'False
  286.          Italic          =   0   'False
  287.          Strikethrough   =   0   'False
  288.       EndProperty
  289.    End
  290.    Begin isButtonTest.isButton cmdArray 
  291.       Height          =   570
  292.       Index           =   5
  293.       Left            =   5640
  294.       TabIndex        =   4
  295.       Top             =   1170
  296.       Width           =   735
  297.       _ExtentX        =   1296
  298.       _ExtentY        =   1005
  299.       Icon            =   "frmButtonTest.frx":472E
  300.       Style           =   7
  301.       Caption         =   "Drive"
  302.       IconAlign       =   3
  303.       CaptionAlign    =   4
  304.       BackColor       =   15790320
  305.       HighlightColor  =   8812135
  306.       Object.ToolTipText     =   ""
  307.       ToolTipTitle    =   "isButton Tooltip"
  308.       ToolTipIcon     =   0
  309.       ToolTipType     =   -2147483624
  310.       ttBackColor     =   -2147483624
  311.       ttForeColor     =   -2147483625
  312.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  313.          Name            =   "Verdana"
  314.          Size            =   8.25
  315.          Charset         =   0
  316.          Weight          =   400
  317.          Underline       =   0   'False
  318.          Italic          =   0   'False
  319.          Strikethrough   =   0   'False
  320.       EndProperty
  321.    End
  322.    Begin isButtonTest.isButton cmdArray 
  323.       Height          =   570
  324.       Index           =   3
  325.       Left            =   3960
  326.       TabIndex        =   2
  327.       Top             =   1170
  328.       Width           =   735
  329.       _ExtentX        =   1296
  330.       _ExtentY        =   1005
  331.       Icon            =   "frmButtonTest.frx":5780
  332.       Style           =   5
  333.       Caption         =   "Doc"
  334.       IconAlign       =   3
  335.       CaptionAlign    =   4
  336.       BackColor       =   15790320
  337.       HighlightColor  =   8812135
  338.       Object.ToolTipText     =   ""
  339.       ToolTipTitle    =   "isButton Tooltip"
  340.       ToolTipIcon     =   2
  341.       ToolTipType     =   -2147483624
  342.       ttBackColor     =   -2147483624
  343.       ttForeColor     =   -2147483625
  344.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  345.          Name            =   "Verdana"
  346.          Size            =   8.25
  347.          Charset         =   0
  348.          Weight          =   400
  349.          Underline       =   0   'False
  350.          Italic          =   0   'False
  351.          Strikethrough   =   0   'False
  352.       EndProperty
  353.    End
  354.    Begin isButtonTest.isButton cmdArray 
  355.       Height          =   570
  356.       Index           =   8
  357.       Left            =   8160
  358.       TabIndex        =   7
  359.       Top             =   1170
  360.       Width           =   735
  361.       _ExtentX        =   1296
  362.       _ExtentY        =   1005
  363.       Icon            =   "frmButtonTest.frx":67D2
  364.       Style           =   10
  365.       Caption         =   "Help"
  366.       IconAlign       =   3
  367.       CaptionAlign    =   4
  368.       BackColor       =   15790320
  369.       HighlightColor  =   8812135
  370.       Object.ToolTipText     =   ""
  371.       ToolTipTitle    =   "isButton Tooltip"
  372.       ToolTipIcon     =   3
  373.       ToolTipType     =   1
  374.       ttBackColor     =   -2147483624
  375.       ttForeColor     =   -2147483625
  376.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  377.          Name            =   "Verdana"
  378.          Size            =   8.25
  379.          Charset         =   0
  380.          Weight          =   400
  381.          Underline       =   0   'False
  382.          Italic          =   0   'False
  383.          Strikethrough   =   0   'False
  384.       EndProperty
  385.    End
  386.    Begin isButtonTest.isButton cmdArray 
  387.       Height          =   570
  388.       Index           =   1
  389.       Left            =   2280
  390.       TabIndex        =   0
  391.       Top             =   1170
  392.       Width           =   735
  393.       _ExtentX        =   1296
  394.       _ExtentY        =   1005
  395.       Icon            =   "frmButtonTest.frx":7824
  396.       Caption         =   "Log"
  397.       IconAlign       =   3
  398.       CaptionAlign    =   4
  399.       BackColor       =   15790320
  400.       HighlightColor  =   8812135
  401.       Object.ToolTipText     =   ""
  402.       ToolTipTitle    =   "isButton Tooltip"
  403.       ToolTipIcon     =   0
  404.       ToolTipType     =   1
  405.       ttBackColor     =   -2147483624
  406.       ttForeColor     =   -2147483625
  407.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  408.          Name            =   "Verdana"
  409.          Size            =   8.25
  410.          Charset         =   0
  411.          Weight          =   400
  412.          Underline       =   0   'False
  413.          Italic          =   0   'False
  414.          Strikethrough   =   0   'False
  415.       EndProperty
  416.    End
  417.    Begin isButtonTest.isButton cmdStyle 
  418.       Height          =   375
  419.       Index           =   1
  420.       Left            =   120
  421.       TabIndex        =   9
  422.       Top             =   533
  423.       Width           =   1815
  424.       _ExtentX        =   3201
  425.       _ExtentY        =   661
  426.       Icon            =   "frmButtonTest.frx":8876
  427.       Style           =   1
  428.       Caption         =   "Soft"
  429.       BackColor       =   15790320
  430.       HighlightColor  =   8812135
  431.       Object.ToolTipText     =   ""
  432.       ToolTipTitle    =   ""
  433.       ToolTipIcon     =   0
  434.       ToolTipType     =   0
  435.       ttBackColor     =   -2147483624
  436.       ttForeColor     =   -2147483625
  437.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  438.          Name            =   "Verdana"
  439.          Size            =   8.25
  440.          Charset         =   0
  441.          Weight          =   400
  442.          Underline       =   0   'False
  443.          Italic          =   0   'False
  444.          Strikethrough   =   0   'False
  445.       EndProperty
  446.       MaskColor       =   16711935
  447.       UseMaskColor    =   -1  'True
  448.    End
  449.    Begin isButtonTest.isButton cmdStyle 
  450.       Height          =   375
  451.       Index           =   2
  452.       Left            =   120
  453.       TabIndex        =   10
  454.       Top             =   946
  455.       Width           =   1815
  456.       _ExtentX        =   3201
  457.       _ExtentY        =   661
  458.       Icon            =   "frmButtonTest.frx":8BC8
  459.       Style           =   2
  460.       Caption         =   "Flat"
  461.       BackColor       =   15790320
  462.       HighlightColor  =   8812135
  463.       Object.ToolTipText     =   ""
  464.       ToolTipTitle    =   ""
  465.       ToolTipIcon     =   0
  466.       ToolTipType     =   -2147483624
  467.       ttBackColor     =   -2147483624
  468.       ttForeColor     =   -2147483625
  469.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  470.          Name            =   "Verdana"
  471.          Size            =   8.25
  472.          Charset         =   0
  473.          Weight          =   400
  474.          Underline       =   0   'False
  475.          Italic          =   0   'False
  476.          Strikethrough   =   0   'False
  477.       EndProperty
  478.       MaskColor       =   16711935
  479.       UseMaskColor    =   -1  'True
  480.    End
  481.    Begin isButtonTest.isButton cmdStyle 
  482.       Height          =   375
  483.       Index           =   3
  484.       Left            =   120
  485.       TabIndex        =   11
  486.       Top             =   1359
  487.       Width           =   1815
  488.       _ExtentX        =   3201
  489.       _ExtentY        =   661
  490.       Icon            =   "frmButtonTest.frx":8F1A
  491.       Caption         =   "Java"
  492.       BackColor       =   15790320
  493.       HighlightColor  =   8812135
  494.       Object.ToolTipText     =   ""
  495.       ToolTipTitle    =   ""
  496.       ToolTipIcon     =   0
  497.       ToolTipType     =   0
  498.       ttBackColor     =   -2147483624
  499.       ttForeColor     =   -2147483625
  500.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  501.          Name            =   "Verdana"
  502.          Size            =   8.25
  503.          Charset         =   0
  504.          Weight          =   400
  505.          Underline       =   0   'False
  506.          Italic          =   0   'False
  507.          Strikethrough   =   0   'False
  508.       EndProperty
  509.       MaskColor       =   16711935
  510.       UseMaskColor    =   -1  'True
  511.    End
  512.    Begin isButtonTest.isButton cmdStyle 
  513.       Height          =   375
  514.       Index           =   4
  515.       Left            =   120
  516.       TabIndex        =   12
  517.       Top             =   1772
  518.       Width           =   1815
  519.       _ExtentX        =   3201
  520.       _ExtentY        =   661
  521.       Icon            =   "frmButtonTest.frx":926C
  522.       Style           =   4
  523.       Caption         =   "Office XP"
  524.       BackColor       =   15790320
  525.       HighlightColor  =   8812135
  526.       Object.ToolTipText     =   ""
  527.       ToolTipTitle    =   ""
  528.       ToolTipIcon     =   0
  529.       ToolTipType     =   0
  530.       ttBackColor     =   -2147483624
  531.       ttForeColor     =   -2147483625
  532.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  533.          Name            =   "Verdana"
  534.          Size            =   8.25
  535.          Charset         =   0
  536.          Weight          =   400
  537.          Underline       =   0   'False
  538.          Italic          =   0   'False
  539.          Strikethrough   =   0   'False
  540.       EndProperty
  541.       MaskColor       =   16711935
  542.       UseMaskColor    =   -1  'True
  543.    End
  544.    Begin isButtonTest.isButton cmdStyle 
  545.       Height          =   375
  546.       Index           =   5
  547.       Left            =   120
  548.       TabIndex        =   13
  549.       Top             =   2185
  550.       Width           =   1815
  551.       _ExtentX        =   3201
  552.       _ExtentY        =   661
  553.       Icon            =   "frmButtonTest.frx":95BE
  554.       Style           =   5
  555.       Caption         =   "Windows XP"
  556.       BackColor       =   15790320
  557.       HighlightColor  =   8812135
  558.       Object.ToolTipText     =   ""
  559.       ToolTipTitle    =   ""
  560.       ToolTipIcon     =   0
  561.       ToolTipType     =   0
  562.       ttBackColor     =   -2147483624
  563.       ttForeColor     =   -2147483625
  564.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  565.          Name            =   "Verdana"
  566.          Size            =   8.25
  567.          Charset         =   0
  568.          Weight          =   400
  569.          Underline       =   0   'False
  570.          Italic          =   0   'False
  571.          Strikethrough   =   0   'False
  572.       EndProperty
  573.       MaskColor       =   16711935
  574.       UseMaskColor    =   -1  'True
  575.    End
  576.    Begin isButtonTest.isButton cmdStyle 
  577.       Height          =   375
  578.       Index           =   6
  579.       Left            =   120
  580.       TabIndex        =   14
  581.       Top             =   2598
  582.       Width           =   1815
  583.       _ExtentX        =   3201
  584.       _ExtentY        =   661
  585.       Icon            =   "frmButtonTest.frx":9910
  586.       Style           =   6
  587.       Caption         =   "Windows Theme "
  588.       CaptionAlign    =   2
  589.       BackColor       =   15790320
  590.       HighlightColor  =   8812135
  591.       Object.ToolTipText     =   ""
  592.       ToolTipTitle    =   ""
  593.       ToolTipIcon     =   0
  594.       ToolTipType     =   -2147483624
  595.       ttBackColor     =   -2147483624
  596.       ttForeColor     =   -2147483625
  597.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  598.          Name            =   "Verdana"
  599.          Size            =   8.25
  600.          Charset         =   0
  601.          Weight          =   400
  602.          Underline       =   0   'False
  603.          Italic          =   0   'False
  604.          Strikethrough   =   0   'False
  605.       EndProperty
  606.    End
  607.    Begin isButtonTest.isButton cmdStyle 
  608.       Height          =   375
  609.       Index           =   7
  610.       Left            =   120
  611.       TabIndex        =   15
  612.       Top             =   3011
  613.       Width           =   1815
  614.       _ExtentX        =   3201
  615.       _ExtentY        =   661
  616.       Icon            =   "frmButtonTest.frx":9EAA
  617.       Style           =   7
  618.       Caption         =   "Plastik"
  619.       BackColor       =   15790320
  620.       HighlightColor  =   8812135
  621.       Object.ToolTipText     =   ""
  622.       ToolTipTitle    =   ""
  623.       ToolTipIcon     =   0
  624.       ToolTipType     =   0
  625.       ttBackColor     =   -2147483624
  626.       ttForeColor     =   -2147483625
  627.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  628.          Name            =   "Verdana"
  629.          Size            =   8.25
  630.          Charset         =   0
  631.          Weight          =   400
  632.          Underline       =   0   'False
  633.          Italic          =   0   'False
  634.          Strikethrough   =   0   'False
  635.       EndProperty
  636.    End
  637.    Begin isButtonTest.isButton cmdStyle 
  638.       Height          =   375
  639.       Index           =   8
  640.       Left            =   120
  641.       TabIndex        =   16
  642.       Top             =   3424
  643.       Width           =   1815
  644.       _ExtentX        =   3201
  645.       _ExtentY        =   661
  646.       Icon            =   "frmButtonTest.frx":A004
  647.       Style           =   8
  648.       Caption         =   "Galaxy"
  649.       BackColor       =   15790320
  650.       HighlightColor  =   8812135
  651.       Object.ToolTipText     =   ""
  652.       ToolTipTitle    =   ""
  653.       ToolTipIcon     =   0
  654.       ToolTipType     =   0
  655.       ttBackColor     =   -2147483624
  656.       ttForeColor     =   -2147483625
  657.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  658.          Name            =   "Verdana"
  659.          Size            =   8.25
  660.          Charset         =   0
  661.          Weight          =   400
  662.          Underline       =   0   'False
  663.          Italic          =   0   'False
  664.          Strikethrough   =   0   'False
  665.       EndProperty
  666.    End
  667.    Begin isButtonTest.isButton cmdStyle 
  668.       Height          =   375
  669.       Index           =   9
  670.       Left            =   120
  671.       TabIndex        =   17
  672.       Top             =   3840
  673.       Width           =   1815
  674.       _ExtentX        =   3201
  675.       _ExtentY        =   661
  676.       Icon            =   "frmButtonTest.frx":A59E
  677.       Style           =   9
  678.       Caption         =   "Keramik"
  679.       BackColor       =   15790320
  680.       HighlightColor  =   8812135
  681.       Object.ToolTipText     =   ""
  682.       ToolTipTitle    =   ""
  683.       ToolTipIcon     =   0
  684.       ToolTipType     =   0
  685.       ttBackColor     =   -2147483624
  686.       ttForeColor     =   -2147483625
  687.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  688.          Name            =   "Verdana"
  689.          Size            =   8.25
  690.          Charset         =   0
  691.          Weight          =   400
  692.          Underline       =   0   'False
  693.          Italic          =   0   'False
  694.          Strikethrough   =   0   'False
  695.       EndProperty
  696.    End
  697.    Begin isButtonTest.isButton cmdStyle 
  698.       Height          =   375
  699.       Index           =   10
  700.       Left            =   120
  701.       TabIndex        =   18
  702.       Top             =   4260
  703.       Width           =   1815
  704.       _ExtentX        =   3201
  705.       _ExtentY        =   661
  706.       Icon            =   "frmButtonTest.frx":A6F8
  707.       Style           =   10
  708.       Caption         =   "Mac OS X"
  709.       BackColor       =   15790320
  710.       HighlightColor  =   8812135
  711.       Object.ToolTipText     =   ""
  712.       ToolTipTitle    =   "Warning"
  713.       ToolTipIcon     =   1
  714.       ToolTipType     =   -2147483624
  715.       ttBackColor     =   -2147483624
  716.       ttForeColor     =   -2147483625
  717.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  718.          Name            =   "Verdana"
  719.          Size            =   8.25
  720.          Charset         =   0
  721.          Weight          =   400
  722.          Underline       =   0   'False
  723.          Italic          =   0   'False
  724.          Strikethrough   =   0   'False
  725.       EndProperty
  726.    End
  727.    Begin VB.PictureBox pProps 
  728.       Appearance      =   0  'Flat
  729.       BackColor       =   &H80000005&
  730.       ForeColor       =   &H80000008&
  731.       Height          =   1575
  732.       Index           =   0
  733.       Left            =   2280
  734.       ScaleHeight     =   1545
  735.       ScaleWidth      =   6465
  736.       TabIndex        =   26
  737.       Top             =   2880
  738.       Width           =   6495
  739.       Begin isButtonTest.isButton chkUseCustomColors 
  740.          Height          =   375
  741.          Left            =   4080
  742.          TabIndex        =   61
  743.          Top             =   1080
  744.          Width           =   2175
  745.          _ExtentX        =   3836
  746.          _ExtentY        =   661
  747.          Style           =   8
  748.          Caption         =   "Use Custom Colors"
  749.          IconAlign       =   2
  750.          iNonThemeStyle  =   0
  751.          BackColor       =   15790320
  752.          HighlightColor  =   8812135
  753.          Object.ToolTipText     =   ""
  754.          ToolTipTitle    =   ""
  755.          ToolTipIcon     =   0
  756.          ToolTipType     =   0
  757.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  758.             Name            =   "Verdana"
  759.             Size            =   8.25
  760.             Charset         =   0
  761.             Weight          =   400
  762.             Underline       =   0   'False
  763.             Italic          =   0   'False
  764.             Strikethrough   =   0   'False
  765.          EndProperty
  766.          ButtonType      =   1
  767.          Value           =   -1  'True
  768.       End
  769.       Begin isButtonTest.isButton chkEnabled 
  770.          Height          =   375
  771.          Left            =   4080
  772.          TabIndex        =   60
  773.          Top             =   240
  774.          Width           =   2175
  775.          _ExtentX        =   3836
  776.          _ExtentY        =   661
  777.          Style           =   8
  778.          Caption         =   "Enabled"
  779.          IconAlign       =   2
  780.          iNonThemeStyle  =   0
  781.          BackColor       =   15790320
  782.          HighlightColor  =   8812135
  783.          Object.ToolTipText     =   ""
  784.          ToolTipTitle    =   ""
  785.          ToolTipIcon     =   0
  786.          ToolTipType     =   0
  787.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  788.             Name            =   "Verdana"
  789.             Size            =   8.25
  790.             Charset         =   0
  791.             Weight          =   400
  792.             Underline       =   0   'False
  793.             Italic          =   0   'False
  794.             Strikethrough   =   0   'False
  795.          EndProperty
  796.          ButtonType      =   1
  797.          Value           =   -1  'True
  798.       End
  799.       Begin VB.ComboBox comNonThemeStyle 
  800.          Height          =   315
  801.          Left            =   2160
  802.          Style           =   2  'Dropdown List
  803.          TabIndex        =   34
  804.          Top             =   960
  805.          Width           =   1695
  806.       End
  807.       Begin VB.ComboBox comIconAlign 
  808.          Height          =   315
  809.          Left            =   2160
  810.          Style           =   2  'Dropdown List
  811.          TabIndex        =   32
  812.          Top             =   360
  813.          Width           =   1815
  814.       End
  815.       Begin VB.TextBox txtCaption 
  816.          Height          =   285
  817.          Left            =   120
  818.          TabIndex        =   29
  819.          Text            =   "isButton"
  820.          Top             =   360
  821.          Width           =   1815
  822.       End
  823.       Begin VB.ComboBox comCaptionAlign 
  824.          Height          =   315
  825.          Left            =   120
  826.          Style           =   2  'Dropdown List
  827.          TabIndex        =   28
  828.          Top             =   960
  829.          Width           =   1815
  830.       End
  831.       Begin isButtonTest.isButton cmdButtonType 
  832.          Height          =   375
  833.          Left            =   4080
  834.          TabIndex        =   62
  835.          Top             =   660
  836.          Width           =   2175
  837.          _ExtentX        =   3836
  838.          _ExtentY        =   661
  839.          Style           =   8
  840.          Caption         =   "CheckBox"
  841.          IconAlign       =   2
  842.          iNonThemeStyle  =   0
  843.          BackColor       =   15790320
  844.          HighlightColor  =   8812135
  845.          Object.ToolTipText     =   ""
  846.          ToolTipTitle    =   ""
  847.          ToolTipIcon     =   0
  848.          ToolTipType     =   0
  849.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  850.             Name            =   "Verdana"
  851.             Size            =   8.25
  852.             Charset         =   0
  853.             Weight          =   400
  854.             Underline       =   0   'False
  855.             Italic          =   0   'False
  856.             Strikethrough   =   0   'False
  857.          EndProperty
  858.          ButtonType      =   1
  859.       End
  860.       Begin VB.Label Label6 
  861.          BackColor       =   &H80000005&
  862.          Caption         =   "If theme fails, use:"
  863.          Height          =   255
  864.          Left            =   2160
  865.          TabIndex        =   35
  866.          Top             =   720
  867.          Width           =   1695
  868.       End
  869.       Begin VB.Label Label4 
  870.          BackColor       =   &H80000005&
  871.          Caption         =   "Icon Align"
  872.          Height          =   255
  873.          Left            =   2160
  874.          TabIndex        =   33
  875.          Top             =   120
  876.          Width           =   1815
  877.       End
  878.       Begin VB.Label Label2 
  879.          BackColor       =   &H80000005&
  880.          Caption         =   "Caption"
  881.          Height          =   255
  882.          Left            =   120
  883.          TabIndex        =   31
  884.          Top             =   120
  885.          Width           =   1815
  886.       End
  887.       Begin VB.Label Label3 
  888.          BackColor       =   &H80000005&
  889.          Caption         =   "Caption Align"
  890.          Height          =   255
  891.          Left            =   120
  892.          TabIndex        =   30
  893.          Top             =   720
  894.          Width           =   1815
  895.       End
  896.    End
  897.    Begin VB.PictureBox pProps 
  898.       Appearance      =   0  'Flat
  899.       BackColor       =   &H80000005&
  900.       ForeColor       =   &H80000008&
  901.       Height          =   1575
  902.       Index           =   1
  903.       Left            =   2280
  904.       ScaleHeight     =   1545
  905.       ScaleWidth      =   6465
  906.       TabIndex        =   27
  907.       Top             =   2880
  908.       Width           =   6495
  909.       Begin isButtonTest.isButton cmdFontHighLight 
  910.          Height          =   300
  911.          Left            =   120
  912.          TabIndex        =   36
  913.          Top             =   1200
  914.          Width           =   1455
  915.          _ExtentX        =   2566
  916.          _ExtentY        =   529
  917.          Icon            =   "frmButtonTest.frx":A852
  918.          Style           =   8
  919.          Caption         =   "Font HighLight"
  920.          iNonThemeStyle  =   0
  921.          BackColor       =   15790320
  922.          HighlightColor  =   8812135
  923.          Object.ToolTipText     =   ""
  924.          ToolTipTitle    =   ""
  925.          ToolTipIcon     =   0
  926.          ToolTipType     =   0
  927.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  928.             Name            =   "Verdana"
  929.             Size            =   8.25
  930.             Charset         =   0
  931.             Weight          =   400
  932.             Underline       =   0   'False
  933.             Italic          =   0   'False
  934.             Strikethrough   =   0   'False
  935.          EndProperty
  936.       End
  937.       Begin isButtonTest.isButton cmdFontColor 
  938.          Height          =   300
  939.          Left            =   120
  940.          TabIndex        =   37
  941.          Top             =   840
  942.          Width           =   1455
  943.          _ExtentX        =   2566
  944.          _ExtentY        =   529
  945.          Icon            =   "frmButtonTest.frx":A86E
  946.          Style           =   8
  947.          Caption         =   "FontColor"
  948.          iNonThemeStyle  =   0
  949.          BackColor       =   15790320
  950.          HighlightColor  =   8812135
  951.          Object.ToolTipText     =   ""
  952.          ToolTipTitle    =   ""
  953.          ToolTipIcon     =   0
  954.          ToolTipType     =   0
  955.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  956.             Name            =   "Verdana"
  957.             Size            =   8.25
  958.             Charset         =   0
  959.             Weight          =   400
  960.             Underline       =   0   'False
  961.             Italic          =   0   'False
  962.             Strikethrough   =   0   'False
  963.          EndProperty
  964.       End
  965.       Begin isButtonTest.isButton cmdHighLighColor 
  966.          Height          =   300
  967.          Left            =   120
  968.          TabIndex        =   38
  969.          Top             =   480
  970.          Width           =   1455
  971.          _ExtentX        =   2566
  972.          _ExtentY        =   529
  973.          Icon            =   "frmButtonTest.frx":A88A
  974.          Style           =   8
  975.          Caption         =   "HighLight Color"
  976.          iNonThemeStyle  =   0
  977.          BackColor       =   15790320
  978.          HighlightColor  =   8812135
  979.          Object.ToolTipText     =   ""
  980.          ToolTipTitle    =   ""
  981.          ToolTipIcon     =   0
  982.          ToolTipType     =   0
  983.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  984.             Name            =   "Verdana"
  985.             Size            =   8.25
  986.             Charset         =   0
  987.             Weight          =   400
  988.             Underline       =   0   'False
  989.             Italic          =   0   'False
  990.             Strikethrough   =   0   'False
  991.          EndProperty
  992.       End
  993.       Begin isButtonTest.isButton cmdBackColor 
  994.          Height          =   300
  995.          Left            =   120
  996.          TabIndex        =   39
  997.          Top             =   120
  998.          Width           =   1455
  999.          _ExtentX        =   2566
  1000.          _ExtentY        =   529
  1001.          Icon            =   "frmButtonTest.frx":A8A6
  1002.          Style           =   8
  1003.          Caption         =   "BackColor"
  1004.          iNonThemeStyle  =   0
  1005.          BackColor       =   12632256
  1006.          HighlightColor  =   8812135
  1007.          Object.ToolTipText     =   ""
  1008.          ToolTipTitle    =   ""
  1009.          ToolTipIcon     =   0
  1010.          ToolTipType     =   0
  1011.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1012.             Name            =   "Verdana"
  1013.             Size            =   8.25
  1014.             Charset         =   0
  1015.             Weight          =   400
  1016.             Underline       =   0   'False
  1017.             Italic          =   0   'False
  1018.             Strikethrough   =   0   'False
  1019.          EndProperty
  1020.       End
  1021.       Begin isButtonTest.isButton cmdSetFont 
  1022.          Height          =   420
  1023.          Left            =   2880
  1024.          TabIndex        =   59
  1025.          Top             =   120
  1026.          Width           =   1815
  1027.          _ExtentX        =   3201
  1028.          _ExtentY        =   741
  1029.          Icon            =   "frmButtonTest.frx":A8C2
  1030.          Style           =   8
  1031.          Caption         =   "Set Font"
  1032.          iNonThemeStyle  =   0
  1033.          USeCustomColors =   -1  'True
  1034.          BackColor       =   15790320
  1035.          HighlightColor  =   15790320
  1036.          FontColor       =   -2147483640
  1037.          FontHighlightColor=   -2147483635
  1038.          Object.ToolTipText     =   ""
  1039.          ToolTipTitle    =   ""
  1040.          ToolTipIcon     =   0
  1041.          ToolTipType     =   0
  1042.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1043.             Name            =   "Arial"
  1044.             Size            =   9.75
  1045.             Charset         =   0
  1046.             Weight          =   700
  1047.             Underline       =   -1  'True
  1048.             Italic          =   0   'False
  1049.             Strikethrough   =   0   'False
  1050.          EndProperty
  1051.       End
  1052.       Begin VB.Shape shpBack 
  1053.          BackColor       =   &H00F0FAFA&
  1054.          BackStyle       =   1  'Opaque
  1055.          Height          =   300
  1056.          Left            =   1680
  1057.          Shape           =   3  'Circle
  1058.          Top             =   120
  1059.          Width           =   255
  1060.       End
  1061.       Begin VB.Shape shpHighlight 
  1062.          BackColor       =   &H00F8FFFF&
  1063.          BackStyle       =   1  'Opaque
  1064.          Height          =   300
  1065.          Left            =   1680
  1066.          Shape           =   3  'Circle
  1067.          Top             =   480
  1068.          Width           =   255
  1069.       End
  1070.       Begin VB.Shape shpFont 
  1071.          BackColor       =   &H80000012&
  1072.          BackStyle       =   1  'Opaque
  1073.          Height          =   300
  1074.          Left            =   1680
  1075.          Shape           =   3  'Circle
  1076.          Top             =   840
  1077.          Width           =   255
  1078.       End
  1079.       Begin VB.Shape shpFontHighlight 
  1080.          BackColor       =   &H00FF0000&
  1081.          BackStyle       =   1  'Opaque
  1082.          Height          =   300
  1083.          Left            =   1680
  1084.          Shape           =   3  'Circle
  1085.          Top             =   1200
  1086.          Width           =   255
  1087.       End
  1088.    End
  1089.    Begin VB.PictureBox pProps 
  1090.       Appearance      =   0  'Flat
  1091.       BackColor       =   &H80000005&
  1092.       ForeColor       =   &H80000008&
  1093.       Height          =   1575
  1094.       Index           =   3
  1095.       Left            =   2280
  1096.       ScaleHeight     =   1545
  1097.       ScaleWidth      =   6465
  1098.       TabIndex        =   56
  1099.       Top             =   2880
  1100.       Visible         =   0   'False
  1101.       Width           =   6495
  1102.       Begin isButtonTest.isButton cmdVote 
  1103.          Height          =   375
  1104.          Left            =   4080
  1105.          TabIndex        =   58
  1106.          Top             =   1080
  1107.          Width           =   2175
  1108.          _ExtentX        =   3836
  1109.          _ExtentY        =   661
  1110.          Icon            =   "frmButtonTest.frx":A8DE
  1111.          Style           =   8
  1112.          Caption         =   "Go To PSC Page"
  1113.          IconAlign       =   2
  1114.          iNonThemeStyle  =   0
  1115.          USeCustomColors =   -1  'True
  1116.          BackColor       =   15790320
  1117.          HighlightColor  =   16777215
  1118.          Object.ToolTipText     =   ""
  1119.          ToolTipTitle    =   ""
  1120.          ToolTipIcon     =   0
  1121.          ToolTipType     =   0
  1122.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1123.             Name            =   "Verdana"
  1124.             Size            =   8.25
  1125.             Charset         =   0
  1126.             Weight          =   400
  1127.             Underline       =   0   'False
  1128.             Italic          =   0   'False
  1129.             Strikethrough   =   0   'False
  1130.          EndProperty
  1131.       End
  1132.       Begin isButtonTest.isButton cmdHomePage 
  1133.          Height          =   375
  1134.          Left            =   1440
  1135.          TabIndex        =   63
  1136.          Top             =   1080
  1137.          Width           =   2535
  1138.          _ExtentX        =   4471
  1139.          _ExtentY        =   661
  1140.          Icon            =   "frmButtonTest.frx":AA38
  1141.          Style           =   8
  1142.          Caption         =   "Go To Fred.cpp Page"
  1143.          IconAlign       =   2
  1144.          iNonThemeStyle  =   0
  1145.          USeCustomColors =   -1  'True
  1146.          BackColor       =   15790320
  1147.          HighlightColor  =   16777215
  1148.          Object.ToolTipText     =   ""
  1149.          ToolTipTitle    =   ""
  1150.          ToolTipIcon     =   0
  1151.          ToolTipType     =   0
  1152.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1153.             Name            =   "Verdana"
  1154.             Size            =   8.25
  1155.             Charset         =   0
  1156.             Weight          =   400
  1157.             Underline       =   0   'False
  1158.             Italic          =   0   'False
  1159.             Strikethrough   =   0   'False
  1160.          EndProperty
  1161.       End
  1162.       Begin VB.Label Label10 
  1163.          BackStyle       =   0  'Transparent
  1164.          Caption         =   $"frmButtonTest.frx":AFD2
  1165.          Height          =   855
  1166.          Left            =   120
  1167.          TabIndex        =   57
  1168.          Top             =   120
  1169.          Width           =   6255
  1170.       End
  1171.    End
  1172.    Begin VB.PictureBox pProps 
  1173.       Appearance      =   0  'Flat
  1174.       BackColor       =   &H80000005&
  1175.       ForeColor       =   &H80000008&
  1176.       Height          =   1575
  1177.       Index           =   2
  1178.       Left            =   2280
  1179.       ScaleHeight     =   1545
  1180.       ScaleWidth      =   6465
  1181.       TabIndex        =   42
  1182.       Top             =   2880
  1183.       Width           =   6495
  1184.       Begin VB.ComboBox comTTStyle 
  1185.          Height          =   315
  1186.          Left            =   2160
  1187.          Style           =   2  'Dropdown List
  1188.          TabIndex        =   52
  1189.          Top             =   960
  1190.          Width           =   1695
  1191.       End
  1192.       Begin VB.ComboBox comTTIcon 
  1193.          Height          =   315
  1194.          Left            =   2160
  1195.          Style           =   2  'Dropdown List
  1196.          TabIndex        =   51
  1197.          Top             =   360
  1198.          Width           =   1695
  1199.       End
  1200.       Begin VB.TextBox txtToolTipText 
  1201.          Height          =   285
  1202.          Left            =   120
  1203.          TabIndex        =   49
  1204.          Text            =   "ToolTip Text"
  1205.          Top             =   960
  1206.          Width           =   1815
  1207.       End
  1208.       Begin VB.TextBox txtTTTitle 
  1209.          Height          =   285
  1210.          Left            =   120
  1211.          TabIndex        =   46
  1212.          Text            =   "isButton Tooltip"
  1213.          Top             =   360
  1214.          Width           =   1815
  1215.       End
  1216.       Begin isButtonTest.isButton cmdTTForeColor 
  1217.          Height          =   300
  1218.          Left            =   4200
  1219.          TabIndex        =   43
  1220.          Top             =   960
  1221.          Width           =   1455
  1222.          _ExtentX        =   2566
  1223.          _ExtentY        =   529
  1224.          Icon            =   "frmButtonTest.frx":B0C6
  1225.          Style           =   8
  1226.          Caption         =   "Text Color"
  1227.          iNonThemeStyle  =   0
  1228.          BackColor       =   15790320
  1229.          HighlightColor  =   8812135
  1230.          Object.ToolTipText     =   ""
  1231.          ToolTipTitle    =   ""
  1232.          ToolTipIcon     =   0
  1233.          ToolTipType     =   0
  1234.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1235.             Name            =   "Verdana"
  1236.             Size            =   8.25
  1237.             Charset         =   0
  1238.             Weight          =   400
  1239.             Underline       =   0   'False
  1240.             Italic          =   0   'False
  1241.             Strikethrough   =   0   'False
  1242.          EndProperty
  1243.       End
  1244.       Begin isButtonTest.isButton cmdTTBackColor 
  1245.          Height          =   300
  1246.          Left            =   4200
  1247.          TabIndex        =   44
  1248.          Top             =   360
  1249.          Width           =   1455
  1250.          _ExtentX        =   2566
  1251.          _ExtentY        =   529
  1252.          Icon            =   "frmButtonTest.frx":B0E2
  1253.          Style           =   8
  1254.          Caption         =   "BackColor"
  1255.          iNonThemeStyle  =   0
  1256.          BackColor       =   15790320
  1257.          HighlightColor  =   8812135
  1258.          Object.ToolTipText     =   ""
  1259.          ToolTipTitle    =   ""
  1260.          ToolTipIcon     =   0
  1261.          ToolTipType     =   0
  1262.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1263.             Name            =   "Verdana"
  1264.             Size            =   8.25
  1265.             Charset         =   0
  1266.             Weight          =   400
  1267.             Underline       =   0   'False
  1268.             Italic          =   0   'False
  1269.             Strikethrough   =   0   'False
  1270.          EndProperty
  1271.       End
  1272.       Begin VB.Shape shpTTBackColor 
  1273.          BackColor       =   &H80000018&
  1274.          BackStyle       =   1  'Opaque
  1275.          Height          =   300
  1276.          Left            =   5760
  1277.          Shape           =   3  'Circle
  1278.          Top             =   360
  1279.          Width           =   255
  1280.       End
  1281.       Begin VB.Label Label9 
  1282.          BackColor       =   &H80000005&
  1283.          Caption         =   "Tooltip Style:"
  1284.          Height          =   255
  1285.          Left            =   2160
  1286.          TabIndex        =   53
  1287.          Top             =   720
  1288.          Width           =   1695
  1289.       End
  1290.       Begin VB.Label Label8 
  1291.          BackColor       =   &H80000005&
  1292.          Caption         =   "Icon:"
  1293.          Height          =   255
  1294.          Left            =   2160
  1295.          TabIndex        =   50
  1296.          Top             =   120
  1297.          Width           =   1575
  1298.       End
  1299.       Begin VB.Label Label7 
  1300.          BackColor       =   &H80000005&
  1301.          Caption         =   "Text:"
  1302.          Height          =   255
  1303.          Left            =   120
  1304.          TabIndex        =   48
  1305.          Top             =   720
  1306.          Width           =   1815
  1307.       End
  1308.       Begin VB.Label Title 
  1309.          BackColor       =   &H80000005&
  1310.          Caption         =   "Title:"
  1311.          Height          =   255
  1312.          Left            =   120
  1313.          TabIndex        =   45
  1314.          Top             =   120
  1315.          Width           =   1815
  1316.       End
  1317.       Begin VB.Shape shpTTForeColor 
  1318.          BackColor       =   &H80000017&
  1319.          BackStyle       =   1  'Opaque
  1320.          Height          =   300
  1321.          Left            =   5760
  1322.          Shape           =   3  'Circle
  1323.          Top             =   960
  1324.          Width           =   255
  1325.       End
  1326.    End
  1327.    Begin isButtonTest.isButton cmdAbout 
  1328.       Height          =   495
  1329.       Left            =   7320
  1330.       TabIndex        =   54
  1331.       Top             =   2520
  1332.       Width           =   1335
  1333.       _ExtentX        =   2355
  1334.       _ExtentY        =   873
  1335.       Icon            =   "frmButtonTest.frx":B0FE
  1336.       Style           =   8
  1337.       Caption         =   "About"
  1338.       CaptionAlign    =   3
  1339.       iNonThemeStyle  =   0
  1340.       USeCustomColors =   -1  'True
  1341.       BackColor       =   16777215
  1342.       HighlightColor  =   16777215
  1343.       Object.ToolTipText     =   ""
  1344.       ToolTipTitle    =   ""
  1345.       ToolTipIcon     =   0
  1346.       ToolTipType     =   0
  1347.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1348.          Name            =   "Verdana"
  1349.          Size            =   8.25
  1350.          Charset         =   0
  1351.          Weight          =   400
  1352.          Underline       =   0   'False
  1353.          Italic          =   0   'False
  1354.          Strikethrough   =   0   'False
  1355.       EndProperty
  1356.    End
  1357.    Begin isButtonTest.isButton cmdTab 
  1358.       Height          =   375
  1359.       Index           =   3
  1360.       Left            =   7125
  1361.       TabIndex        =   55
  1362.       Top             =   4380
  1363.       Width           =   1575
  1364.       _ExtentX        =   2778
  1365.       _ExtentY        =   661
  1366.       Icon            =   "frmButtonTest.frx":B11A
  1367.       Style           =   8
  1368.       Caption         =   "Help"
  1369.       iNonThemeStyle  =   0
  1370.       USeCustomColors =   -1  'True
  1371.       BackColor       =   16777215
  1372.       HighlightColor  =   16777215
  1373.       Object.ToolTipText     =   ""
  1374.       ToolTipTitle    =   ""
  1375.       ToolTipIcon     =   0
  1376.       ToolTipType     =   0
  1377.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1378.          Name            =   "Verdana"
  1379.          Size            =   8.25
  1380.          Charset         =   0
  1381.          Weight          =   400
  1382.          Underline       =   0   'False
  1383.          Italic          =   0   'False
  1384.          Strikethrough   =   0   'False
  1385.       EndProperty
  1386.    End
  1387.    Begin isButtonTest.isButton cmdTab 
  1388.       Height          =   375
  1389.       Index           =   1
  1390.       Left            =   3975
  1391.       TabIndex        =   41
  1392.       Top             =   4380
  1393.       Width           =   1575
  1394.       _ExtentX        =   2778
  1395.       _ExtentY        =   661
  1396.       Icon            =   "frmButtonTest.frx":B136
  1397.       Style           =   8
  1398.       Caption         =   "Colors && Fonts"
  1399.       iNonThemeStyle  =   0
  1400.       USeCustomColors =   -1  'True
  1401.       BackColor       =   16777215
  1402.       HighlightColor  =   16777215
  1403.       Object.ToolTipText     =   ""
  1404.       ToolTipTitle    =   ""
  1405.       ToolTipIcon     =   0
  1406.       ToolTipType     =   0
  1407.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1408.          Name            =   "Verdana"
  1409.          Size            =   8.25
  1410.          Charset         =   0
  1411.          Weight          =   400
  1412.          Underline       =   0   'False
  1413.          Italic          =   0   'False
  1414.          Strikethrough   =   0   'False
  1415.       EndProperty
  1416.    End
  1417.    Begin isButtonTest.isButton cmdTab 
  1418.       Height          =   375
  1419.       Index           =   0
  1420.       Left            =   2400
  1421.       TabIndex        =   40
  1422.       Top             =   4380
  1423.       Width           =   1575
  1424.       _ExtentX        =   2778
  1425.       _ExtentY        =   661
  1426.       Icon            =   "frmButtonTest.frx":B152
  1427.       Style           =   8
  1428.       Caption         =   "General"
  1429.       iNonThemeStyle  =   0
  1430.       USeCustomColors =   -1  'True
  1431.       BackColor       =   16777215
  1432.       HighlightColor  =   16777215
  1433.       Object.ToolTipText     =   ""
  1434.       ToolTipTitle    =   ""
  1435.       ToolTipIcon     =   0
  1436.       ToolTipType     =   0
  1437.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1438.          Name            =   "Verdana"
  1439.          Size            =   8.25
  1440.          Charset         =   0
  1441.          Weight          =   400
  1442.          Underline       =   0   'False
  1443.          Italic          =   0   'False
  1444.          Strikethrough   =   0   'False
  1445.       EndProperty
  1446.    End
  1447.    Begin isButtonTest.isButton cmdTab 
  1448.       Height          =   375
  1449.       Index           =   2
  1450.       Left            =   5550
  1451.       TabIndex        =   47
  1452.       Top             =   4380
  1453.       Width           =   1575
  1454.       _ExtentX        =   2778
  1455.       _ExtentY        =   661
  1456.       Icon            =   "frmButtonTest.frx":B16E
  1457.       Style           =   8
  1458.       Caption         =   "ToolTip"
  1459.       iNonThemeStyle  =   0
  1460.       USeCustomColors =   -1  'True
  1461.       BackColor       =   16777215
  1462.       HighlightColor  =   16777215
  1463.       Object.ToolTipText     =   ""
  1464.       ToolTipTitle    =   ""
  1465.       ToolTipIcon     =   0
  1466.       ToolTipType     =   0
  1467.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1468.          Name            =   "Verdana"
  1469.          Size            =   8.25
  1470.          Charset         =   0
  1471.          Weight          =   400
  1472.          Underline       =   0   'False
  1473.          Italic          =   0   'False
  1474.          Strikethrough   =   0   'False
  1475.       EndProperty
  1476.    End
  1477.    Begin isButtonTest.isButton cmdClose 
  1478.       Cancel          =   -1  'True
  1479.       Height          =   375
  1480.       Left            =   7320
  1481.       TabIndex        =   64
  1482.       Top             =   4800
  1483.       Width           =   1695
  1484.       _ExtentX        =   2990
  1485.       _ExtentY        =   661
  1486.       Icon            =   "frmButtonTest.frx":B18A
  1487.       Style           =   8
  1488.       Caption         =   "Close"
  1489.       IconAlign       =   2
  1490.       iNonThemeStyle  =   0
  1491.       BackColor       =   15790320
  1492.       HighlightColor  =   8812135
  1493.       Object.ToolTipText     =   ""
  1494.       ToolTipTitle    =   ""
  1495.       ToolTipIcon     =   0
  1496.       ToolTipType     =   0
  1497.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1498.          Name            =   "Verdana"
  1499.          Size            =   8.25
  1500.          Charset         =   0
  1501.          Weight          =   400
  1502.          Underline       =   0   'False
  1503.          Italic          =   0   'False
  1504.          Strikethrough   =   0   'False
  1505.       EndProperty
  1506.    End
  1507.    Begin isButtonTest.isButton cmdGotoPSCPage 
  1508.       Height          =   375
  1509.       Left            =   2160
  1510.       TabIndex        =   65
  1511.       Top             =   4800
  1512.       Width           =   3135
  1513.       _ExtentX        =   5530
  1514.       _ExtentY        =   661
  1515.       Icon            =   "frmButtonTest.frx":B2E4
  1516.       Style           =   8
  1517.       Caption         =   "Go to Planet Source Code.com"
  1518.       CaptionAlign    =   2
  1519.       iNonThemeStyle  =   0
  1520.       BackColor       =   15790320
  1521.       HighlightColor  =   8812135
  1522.       Object.ToolTipText     =   ""
  1523.       ToolTipTitle    =   ""
  1524.       ToolTipIcon     =   0
  1525.       ToolTipType     =   0
  1526.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1527.          Name            =   "Verdana"
  1528.          Size            =   8.25
  1529.          Charset         =   0
  1530.          Weight          =   400
  1531.          Underline       =   0   'False
  1532.          Italic          =   0   'False
  1533.          Strikethrough   =   0   'False
  1534.       EndProperty
  1535.       MaskColor       =   16711935
  1536.       UseMaskColor    =   -1  'True
  1537.    End
  1538.    Begin VB.Shape Shape1 
  1539.       BackColor       =   &H8000000F&
  1540.       BackStyle       =   1  'Opaque
  1541.       BorderStyle     =   0  'Transparent
  1542.       Height          =   5295
  1543.       Left            =   0
  1544.       Top             =   0
  1545.       Width           =   2055
  1546.    End
  1547.    Begin VB.Label lblDescription 
  1548.       BackColor       =   &H80000005&
  1549.       Caption         =   "Style Description"
  1550.       Height          =   615
  1551.       Left            =   5400
  1552.       TabIndex        =   23
  1553.       Top             =   1920
  1554.       Width           =   3495
  1555.    End
  1556.    Begin VB.Label lblVersion 
  1557.       BackStyle       =   0  'Transparent
  1558.       Caption         =   "Version 3.7.0"
  1559.       Height          =   255
  1560.       Left            =   5880
  1561.       TabIndex        =   22
  1562.       Top             =   720
  1563.       Width           =   2295
  1564.    End
  1565.    Begin VB.Label Label5 
  1566.       BackStyle       =   0  'Transparent
  1567.       Caption         =   "By Fred.cpp"
  1568.       BeginProperty Font 
  1569.          Name            =   "Verdana"
  1570.          Size            =   9.75
  1571.          Charset         =   0
  1572.          Weight          =   700
  1573.          Underline       =   0   'False
  1574.          Italic          =   0   'False
  1575.          Strikethrough   =   0   'False
  1576.       EndProperty
  1577.       Height          =   255
  1578.       Left            =   2640
  1579.       TabIndex        =   21
  1580.       Top             =   720
  1581.       Width           =   2415
  1582.    End
  1583.    Begin VB.Line Line4 
  1584.       BorderColor     =   &H80000010&
  1585.       BorderWidth     =   2
  1586.       X1              =   144
  1587.       X2              =   480
  1588.       Y1              =   172
  1589.       Y2              =   172
  1590.    End
  1591.    Begin VB.Line Line3 
  1592.       BorderColor     =   &H80000010&
  1593.       BorderWidth     =   2
  1594.       X1              =   144
  1595.       X2              =   592
  1596.       Y1              =   120
  1597.       Y2              =   120
  1598.    End
  1599.    Begin VB.Label lblProperties 
  1600.       BackStyle       =   0  'Transparent
  1601.       Caption         =   "Properties"
  1602.       BeginProperty Font 
  1603.          Name            =   "Verdana"
  1604.          Size            =   14.25
  1605.          Charset         =   0
  1606.          Weight          =   400
  1607.          Underline       =   0   'False
  1608.          Italic          =   0   'False
  1609.          Strikethrough   =   0   'False
  1610.       EndProperty
  1611.       Height          =   375
  1612.       Index           =   0
  1613.       Left            =   2160
  1614.       TabIndex        =   20
  1615.       Top             =   2040
  1616.       Width           =   1575
  1617.    End
  1618.    Begin VB.Line Line2 
  1619.       BorderColor     =   &H80000010&
  1620.       BorderWidth     =   2
  1621.       X1              =   144
  1622.       X2              =   592
  1623.       Y1              =   72
  1624.       Y2              =   72
  1625.    End
  1626.    Begin VB.Line Line1 
  1627.       BorderColor     =   &H80000010&
  1628.       BorderWidth     =   2
  1629.       X1              =   144
  1630.       X2              =   144
  1631.       Y1              =   8
  1632.       Y2              =   312
  1633.    End
  1634.    Begin VB.Label lblProperties 
  1635.       BackStyle       =   0  'Transparent
  1636.       Caption         =   "Properties"
  1637.       BeginProperty Font 
  1638.          Name            =   "Verdana"
  1639.          Size            =   14.25
  1640.          Charset         =   0
  1641.          Weight          =   400
  1642.          Underline       =   0   'False
  1643.          Italic          =   0   'False
  1644.          Strikethrough   =   0   'False
  1645.       EndProperty
  1646.       ForeColor       =   &H80000010&
  1647.       Height          =   375
  1648.       Index           =   1
  1649.       Left            =   2190
  1650.       TabIndex        =   24
  1651.       Top             =   2055
  1652.       Width           =   1560
  1653.    End
  1654.    Begin VB.Label Label1 
  1655.       BackStyle       =   0  'Transparent
  1656.       Caption         =   "isButton - Demo App"
  1657.       BeginProperty Font 
  1658.          Name            =   "Verdana"
  1659.          Size            =   20.25
  1660.          Charset         =   0
  1661.          Weight          =   400
  1662.          Underline       =   0   'False
  1663.          Italic          =   0   'False
  1664.          Strikethrough   =   0   'False
  1665.       EndProperty
  1666.       Height          =   495
  1667.       Index           =   1
  1668.       Left            =   2520
  1669.       TabIndex        =   25
  1670.       Top             =   120
  1671.       Width           =   5415
  1672.    End
  1673.    Begin VB.Label Label1 
  1674.       BackStyle       =   0  'Transparent
  1675.       Caption         =   "isButton - Demo App"
  1676.       BeginProperty Font 
  1677.          Name            =   "Verdana"
  1678.          Size            =   20.25
  1679.          Charset         =   0
  1680.          Weight          =   400
  1681.          Underline       =   0   'False
  1682.          Italic          =   0   'False
  1683.          Strikethrough   =   0   'False
  1684.       EndProperty
  1685.       ForeColor       =   &H80000010&
  1686.       Height          =   495
  1687.       Index           =   0
  1688.       Left            =   2535
  1689.       TabIndex        =   19
  1690.       Top             =   135
  1691.       Width           =   5415
  1692.    End
  1693. End
  1694. Attribute VB_Name = "frmButtonTest"
  1695. Attribute VB_GlobalNameSpace = False
  1696. Attribute VB_Creatable = False
  1697. Attribute VB_PredeclaredId = True
  1698. Attribute VB_Exposed = False
  1699. '*************************************************************
  1700. '
  1701. ' Project Name: isButton Test
  1702. '
  1703. ' Author:       Fred.cpp
  1704. '               fred.cpp@gmail.com
  1705. '
  1706. ' Page:         http://mx.geocities.com/fred_cpp/
  1707. '
  1708. '
  1709. ' Description:  This form and Exe File is created to show some
  1710. '               features of the Multy Style Command Button isButton
  1711. '               I hope you like It And If you find It useful
  1712. '               please vote and leave comments and suggestions,
  1713. '               Everything Is wellcome.
  1714. '               Best Regards.
  1715. Option Explicit
  1716.  
  1717. Dim strStyleDescription(10) As String
  1718. Const strLinkAndUpdates As String = "http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=61476&lngWId=1"
  1719. Const strFredHomePage As String = "http://mx.geocities.com/fred_cpp"
  1720.  
  1721.  
  1722. Private Function GetColor() As OLE_COLOR
  1723.     On Error GoTo Cancelled
  1724.     dlgColor.CancelError = True
  1725.     dlgColor.ShowColor
  1726.     GetColor = dlgColor.Color
  1727. Exit Function
  1728. Cancelled:
  1729.     GetColor = -1
  1730. End Function
  1731.  
  1732. Private Sub chkEnabled_Click()
  1733.     cmdArray(0).Enabled = chkEnabled.Value
  1734.     Dim ni As Integer
  1735.     For ni = 0 To 10
  1736.         cmdStyle(ni).Enabled = chkEnabled.Value
  1737.     Next ni
  1738. End Sub
  1739.  
  1740. Private Sub chkUseCustomColors_Click()
  1741.     cmdArray(0).UseCustomColors = chkUseCustomColors.Value
  1742. End Sub
  1743.  
  1744. Private Sub cmdAbout_Click()
  1745.     cmdAbout.About
  1746.     cmdAbout.About
  1747. End Sub
  1748.  
  1749. Private Sub cmdArray_Click(Index As Integer)
  1750.     Dim ni As Integer
  1751.     If Index Then Exit Sub
  1752.     For ni = 1 To 8
  1753.         cmdArray(ni).Style = ni + 2
  1754.     Next ni
  1755.     Debug.Print "Button:click"
  1756. End Sub
  1757.  
  1758. Private Sub cmdBackColor_Click()
  1759.     Dim lcolor As Long
  1760.     lcolor = GetColor
  1761.     If lcolor <> -1 Then
  1762.         shpBack.BackColor = lcolor
  1763.         cmdArray(0).BackColor = lcolor
  1764.     End If
  1765. End Sub
  1766.  
  1767. Private Sub cmdButtonType_Click()
  1768.     If cmdButtonType.Value Then
  1769.         cmdArray(0).ButtonType = isbCheckBox
  1770.     Else
  1771.         cmdArray(0).ButtonType = isbButton
  1772.     End If
  1773. End Sub
  1774.  
  1775. Private Sub cmdClose_Click()
  1776.     Hide
  1777.     Unload Me
  1778. End Sub
  1779.  
  1780. Private Sub cmdFontColor_Click()
  1781.     Dim lcolor As Long
  1782.     lcolor = GetColor
  1783.     If lcolor <> -1 Then
  1784.         Me.shpFont.BackColor = lcolor
  1785.         cmdArray(0).FontColor = lcolor
  1786.     End If
  1787. End Sub
  1788.  
  1789. Private Sub cmdFontHighLight_Click()
  1790.     Dim lcolor As Long
  1791.     lcolor = GetColor
  1792.     If lcolor <> -1 Then
  1793.         shpFontHighlight.BackColor = lcolor
  1794.         cmdArray(0).FontHighlightColor = lcolor
  1795.     End If
  1796. End Sub
  1797.  
  1798. Private Sub cmdHighLighColor_Click()
  1799.     Dim lcolor As Long
  1800.     lcolor = GetColor
  1801.     If lcolor <> -1 Then
  1802.         shpHighlight.BackColor = lcolor
  1803.         cmdArray(0).HighlightColor = lcolor
  1804.     End If
  1805. End Sub
  1806.  
  1807. Private Sub cmdHomePage_Click()
  1808.     cmdHomePage.OpenLink strFredHomePage
  1809. End Sub
  1810.  
  1811. Private Sub cmdMore_Click()
  1812.     frmDefaultAndCancel.Show , Me
  1813. End Sub
  1814.  
  1815. Private Sub cmdSetFont_Click()
  1816.     On Error GoTo Cancelled
  1817.     With dlgColor
  1818.         .FontBold = cmdArray(0).Font.Bold
  1819.         .FontItalic = cmdArray(0).Font.Italic
  1820.         .FontName = cmdArray(0).Font.Name
  1821.         .FontSize = cmdArray(0).Font.Size
  1822.         .FontStrikethru = cmdArray(0).Font.Strikethrough
  1823.         .FontUnderline = cmdArray(0).Font.Underline
  1824.         .Flags = cdlCFScreenFonts
  1825.         .ShowFont
  1826.         cmdArray(0).Font.Bold = .FontBold
  1827.         cmdArray(0).Font.Italic = .FontItalic
  1828.         cmdArray(0).Font.Name = .FontName
  1829.         cmdArray(0).Font.Size = .FontSize
  1830.         cmdArray(0).Font.Strikethrough = .FontStrikethru
  1831.         cmdArray(0).Font.Underline = .FontUnderline
  1832.     End With
  1833.     cmdArray(0).Refresh
  1834. Exit Sub
  1835. Cancelled:
  1836. End Sub
  1837.  
  1838. Private Sub cmdStyle_Click(Index As Integer)
  1839.     Dim ni As Long
  1840.     For ni = 0 To cmdArray.Count - 1
  1841.         cmdArray(ni).Style = Index
  1842.     Next ni
  1843.     lblDescription.Caption = strStyleDescription(Index)
  1844. End Sub
  1845.  
  1846. Private Sub cmdTab_Click(Index As Integer)
  1847.     Dim ni As Integer
  1848.     For ni = 0 To 3
  1849.         pProps(ni).Visible = False
  1850.     Next ni
  1851.     pProps(Index).Visible = True
  1852. End Sub
  1853.  
  1854. Private Sub cmdTTBackColor_Click()
  1855.     Dim lcolor As Long
  1856.     lcolor = GetColor
  1857.     If lcolor <> -1 Then
  1858.         shpTTBackColor.BackColor = lcolor
  1859.         cmdArray(0).ToolTipBackColor = lcolor
  1860.     End If
  1861. End Sub
  1862.  
  1863. Private Sub cmdTTForeColor_Click()
  1864.     Dim lcolor As Long
  1865.     lcolor = GetColor
  1866.     If lcolor <> -1 Then
  1867.         shpTTForeColor.BackColor = lcolor
  1868.         cmdArray(0).ToolTipForeColor = lcolor
  1869.     End If
  1870. End Sub
  1871.  
  1872. Private Sub cmdVote_Click()
  1873.     cmdVote.OpenLink strLinkAndUpdates
  1874. End Sub
  1875.  
  1876. Private Sub comCaptionAlign_Click()
  1877.     cmdArray(0).CaptionAlign = comCaptionAlign.ListIndex
  1878. End Sub
  1879.  
  1880. Private Sub comIconAlign_Click()
  1881.     cmdArray(0).IconAlign = comIconAlign.ListIndex
  1882. End Sub
  1883.  
  1884. Private Sub comNonThemeStyle_Change()
  1885.     Me.cmdArray(0).NonThemeStyle = comNonThemeStyle.ListIndex
  1886. End Sub
  1887.  
  1888. Private Sub comNonThemeStyle_Click()
  1889.     comNonThemeStyle_Change
  1890. End Sub
  1891.  
  1892. Private Sub comTTIcon_Change()
  1893.     cmdArray(0).ToolTipIcon = comTTIcon.ListIndex
  1894. End Sub
  1895.  
  1896. Private Sub comTTIcon_Click()
  1897.     comTTIcon_Change
  1898. End Sub
  1899.  
  1900. Private Sub comTTStyle_Change()
  1901.     cmdArray(0).ToolTipType = comTTStyle.ListIndex
  1902. End Sub
  1903.  
  1904. Private Sub comTTStyle_Click()
  1905.     comTTStyle_Change
  1906. End Sub
  1907.  
  1908. Private Sub Form_Load()
  1909.     Dim ni As Long
  1910.     'add some elements to the app demo.
  1911.     'Caption Align Options
  1912.     comCaptionAlign.AddItem "Center", 0
  1913.     comCaptionAlign.AddItem "Left", 1
  1914.     comCaptionAlign.AddItem "Right", 2
  1915.     comCaptionAlign.AddItem "Top", 3
  1916.     comCaptionAlign.AddItem "Bottom", 4
  1917.     'Text align Options
  1918.     comIconAlign.AddItem "Center", 0
  1919.     comIconAlign.AddItem "Left", 1
  1920.     comIconAlign.AddItem "Right", 2
  1921.     comIconAlign.AddItem "Top", 3
  1922.     comIconAlign.AddItem "Bottom", 4
  1923.     'Style Options
  1924.     comNonThemeStyle.AddItem "Normal", 0
  1925.     comNonThemeStyle.AddItem "Soft", 1
  1926.     comNonThemeStyle.AddItem "Flat", 2
  1927.     comNonThemeStyle.AddItem "Java", 3
  1928.     comNonThemeStyle.AddItem "[Office XP]", 4
  1929.     comNonThemeStyle.AddItem "[Windows XP]", 5
  1930.     comNonThemeStyle.AddItem "[Windows Theme]", 6
  1931.     comNonThemeStyle.AddItem "Plastik", 7
  1932.     comNonThemeStyle.AddItem "Galaxy", 8
  1933.     comNonThemeStyle.AddItem "Keramik", 9
  1934.     comNonThemeStyle.AddItem "[Mac OSX]", 10
  1935.     'Style Description
  1936.     strStyleDescription(0) = "Classic Win9X/ME Button Style, Default VB Style"
  1937.     strStyleDescription(1) = "Soft Style, I've seen this somewhere..."
  1938.     strStyleDescription(2) = "Flat Style, like the Win Me Toolbars"
  1939.     strStyleDescription(3) = "Sun Java Style, also uses system colors"
  1940.     strStyleDescription(4) = "MSOffice XP, Include the shadows,uses system colors"
  1941.     strStyleDescription(5) = "Windows XP, I think this is the best emulation for XP Luna"
  1942.     strStyleDescription(6) = "Windows Themed, use the current Installed Theme, or a default style can be set"
  1943.     strStyleDescription(7) = "Plastik, the Style of a very popular Linux Look and Feel for KDE"
  1944.     strStyleDescription(8) = "Mandrake Galaxy, the default style for Mandrake Linux 10.0"
  1945.     strStyleDescription(9) = "Keramik, the default Style for KDE 3.2"
  1946.     strStyleDescription(10) = "My favorite one, Mac OSX Style, " & vbCrLf & "the first one mimic drawn by code"
  1947.     For ni = 1 To 8
  1948.         cmdArray(ni).ToolTipText = strStyleDescription(ni + 2)
  1949.     Next ni
  1950.     Dim x As ttStyleEnum
  1951.     'Add tooltip icon options
  1952.     comTTIcon.AddItem "TTNoIcon", TTNoIcon
  1953.     comTTIcon.AddItem "TTIconInfo", TTIconInfo
  1954.     comTTIcon.AddItem "TTIconWarning", TTIconWarning
  1955.     comTTIcon.AddItem "TTIconError", TTIconError
  1956.     'add tooltip icon types
  1957.     comTTStyle.AddItem "TTStandard", TTStandard
  1958.     comTTStyle.AddItem "TTBalloon", TTBalloon
  1959.     
  1960.     lblVersion.Caption = "Version " & cmdArray(0).Version
  1961.     txtToolTipText.Text = "Version " & cmdArray(0).Version
  1962.     ''Setup properties for the demo button
  1963.     cmdArray(0).ToolTipText = "isButton " & lblVersion.Caption
  1964.     cmdArray(0).ToolTipType = TTBalloon
  1965.     cmdArray(0).BackColor = shpBack.BackColor
  1966.     cmdArray(0).HighlightColor = shpHighlight.BackColor
  1967.     cmdArray(0).FontColor = shpFont.BackColor
  1968.     cmdArray(0).FontHighlightColor = shpFontHighlight.BackColor
  1969.     cmdArray(0).Caption = "With Multiline Caption!!"
  1970.     cmdArray_Click 0
  1971.     
  1972. End Sub
  1973.  
  1974. Private Sub isButton1_Click()
  1975.     Debug.Print "clock!"
  1976. End Sub
  1977.  
  1978. Private Sub txtCaption_Change()
  1979.     cmdArray(0).Caption = txtCaption.Text
  1980. End Sub
  1981.  
  1982. Private Sub txtToolTipText_Change()
  1983.     cmdArray(0).ToolTipText = ""
  1984.     cmdArray(0).ToolTipText = txtToolTipText.Text
  1985. End Sub
  1986.  
  1987. Private Sub txtTTTitle_Change()
  1988.     cmdArray(0).ToolTipTitle = txtTTTitle.Text
  1989. End Sub
  1990.