home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / protview / demowinx / data.2 / maskedit / samples / VB / MASKDEMO / MASKDEMO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-31  |  24.8 KB  |  746 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "pv Mask Edit Visual Basic Demo"
  4.    ClientHeight    =   7440
  5.    ClientLeft      =   1935
  6.    ClientTop       =   735
  7.    ClientWidth     =   7785
  8.    Height          =   7845
  9.    Icon            =   "MaskDemo.frx":0000
  10.    Left            =   1875
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   7440
  13.    ScaleWidth      =   7785
  14.    Top             =   390
  15.    Width           =   7905
  16.    Begin VB.CommandButton CloseButton 
  17.       Caption         =   "Close"
  18.       Height          =   495
  19.       Left            =   6480
  20.       TabIndex        =   41
  21.       Top             =   6720
  22.       Width           =   1095
  23.    End
  24.    Begin VB.Frame Frame4 
  25.       Caption         =   "Set some control Properties"
  26.       Height          =   3015
  27.       Left            =   3240
  28.       TabIndex        =   17
  29.       Top             =   120
  30.       Width           =   4335
  31.       Begin VB.CheckBox HighlightCheck 
  32.          Caption         =   "Invert Highlight Colors"
  33.          Height          =   255
  34.          Left            =   120
  35.          TabIndex        =   29
  36.          Top             =   1680
  37.          Width           =   2055
  38.       End
  39.       Begin VB.CheckBox BorderCheck 
  40.          Caption         =   "Border"
  41.          Enabled         =   0   'False
  42.          Height          =   255
  43.          Left            =   120
  44.          TabIndex        =   28
  45.          Top             =   1200
  46.          Width           =   1455
  47.       End
  48.       Begin VB.CheckBox FlatCheck 
  49.          Caption         =   "Flat"
  50.          Height          =   255
  51.          Left            =   120
  52.          TabIndex        =   27
  53.          Top             =   960
  54.          Width           =   1455
  55.       End
  56.       Begin VB.ComboBox HighlightColorCombo 
  57.          Height          =   315
  58.          ItemData        =   "MaskDemo.frx":030A
  59.          Left            =   2520
  60.          List            =   "MaskDemo.frx":0332
  61.          Style           =   2  'Dropdown List
  62.          TabIndex        =   21
  63.          Top             =   1680
  64.          Width           =   1695
  65.       End
  66.       Begin VB.ComboBox ForeColorCombo 
  67.          Height          =   315
  68.          ItemData        =   "MaskDemo.frx":0398
  69.          Left            =   2520
  70.          List            =   "MaskDemo.frx":03C0
  71.          Style           =   2  'Dropdown List
  72.          TabIndex        =   20
  73.          Top             =   1080
  74.          Width           =   1695
  75.       End
  76.       Begin VB.ComboBox BackColorCombo 
  77.          Height          =   315
  78.          ItemData        =   "MaskDemo.frx":0426
  79.          Left            =   2520
  80.          List            =   "MaskDemo.frx":044E
  81.          Style           =   2  'Dropdown List
  82.          TabIndex        =   19
  83.          Top             =   480
  84.          Width           =   1695
  85.       End
  86.       Begin VB.ComboBox DisplayCombo 
  87.          Height          =   315
  88.          ItemData        =   "MaskDemo.frx":04B4
  89.          Left            =   120
  90.          List            =   "MaskDemo.frx":04CD
  91.          Style           =   2  'Dropdown List
  92.          TabIndex        =   18
  93.          Top             =   480
  94.          Width           =   1575
  95.       End
  96.       Begin PVMaskEditLib.PVMaskEdit Mask0 
  97.          Height          =   735
  98.          Left            =   120
  99.          TabIndex        =   26
  100.          Top             =   2160
  101.          Width           =   4095
  102.          _Version        =   65541
  103.          _ExtentX        =   7223
  104.          _ExtentY        =   1296
  105.          _StockProps     =   244
  106.          Text            =   "Mask Edit"
  107.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.             name            =   "MS Sans Serif"
  109.             charset         =   0
  110.             weight          =   700
  111.             size            =   13.5
  112.             underline       =   0   'False
  113.             italic          =   0   'False
  114.             strikethrough   =   0   'False
  115.          EndProperty
  116.          Appearance      =   1
  117.       End
  118.       Begin VB.Label Label8 
  119.          Caption         =   "Highlight Color"
  120.          Height          =   255
  121.          Left            =   2520
  122.          TabIndex        =   25
  123.          Top             =   1440
  124.          Width           =   1575
  125.       End
  126.       Begin VB.Label Label7 
  127.          Caption         =   "ForeColor"
  128.          Height          =   255
  129.          Left            =   2520
  130.          TabIndex        =   24
  131.          Top             =   840
  132.          Width           =   1575
  133.       End
  134.       Begin VB.Label Label6 
  135.          Caption         =   "BackColor"
  136.          Height          =   255
  137.          Left            =   2520
  138.          TabIndex        =   23
  139.          Top             =   240
  140.          Width           =   1455
  141.       End
  142.       Begin VB.Label Label5 
  143.          Caption         =   "Display Style"
  144.          Height          =   255
  145.          Left            =   120
  146.          TabIndex        =   22
  147.          Top             =   240
  148.          Width           =   1455
  149.       End
  150.    End
  151.    Begin VB.Frame Frame3 
  152.       Caption         =   "Set ""Mask"" and ""Text"" properties"
  153.       Height          =   2415
  154.       Left            =   120
  155.       TabIndex        =   6
  156.       Top             =   3240
  157.       Width           =   2895
  158.       Begin VB.CommandButton SetButton 
  159.          Caption         =   "Set Mask and Text from above"
  160.          Height          =   375
  161.          Left            =   240
  162.          TabIndex        =   9
  163.          Top             =   1560
  164.          Width           =   2415
  165.       End
  166.       Begin VB.Label Label2 
  167.          Caption         =   "Text String"
  168.          Height          =   255
  169.          Left            =   120
  170.          TabIndex        =   12
  171.          Top             =   840
  172.          Width           =   1815
  173.       End
  174.       Begin VB.Label Label1 
  175.          Caption         =   "Mask String"
  176.          Height          =   255
  177.          Left            =   120
  178.          TabIndex        =   11
  179.          Top             =   240
  180.          Width           =   1935
  181.       End
  182.       Begin PVMaskEditLib.PVMaskEdit Mask7 
  183.          Height          =   375
  184.          Left            =   120
  185.          TabIndex        =   10
  186.          Top             =   1920
  187.          Width           =   2655
  188.          _Version        =   65541
  189.          _ExtentX        =   4683
  190.          _ExtentY        =   661
  191.          _StockProps     =   244
  192.          Text            =   "This is a target"
  193.          Appearance      =   1
  194.          Text            =   "This is a target"
  195.          BackColor       =   -2147483648
  196.       End
  197.       Begin PVMaskEditLib.PVMaskEdit Mask6 
  198.          Height          =   375
  199.          Left            =   120
  200.          TabIndex        =   8
  201.          Top             =   1080
  202.          Width           =   2655
  203.          _Version        =   65541
  204.          _ExtentX        =   4683
  205.          _ExtentY        =   661
  206.          _StockProps     =   244
  207.          Text            =   "123+-=abc"
  208.          Appearance      =   1
  209.          Text            =   "123+-=abc"
  210.          BackColor       =   65280
  211.       End
  212.       Begin PVMaskEditLib.PVMaskEdit Mask5 
  213.          Height          =   375
  214.          Left            =   120
  215.          TabIndex        =   7
  216.          Top             =   480
  217.          Width           =   2655
  218.          _Version        =   65541
  219.          _ExtentX        =   4683
  220.          _ExtentY        =   661
  221.          _StockProps     =   244
  222.          Text            =   "\#(###) \*(***) \@(@@@)"
  223.          Appearance      =   1
  224.          Text            =   "\#(###) \*(***) \@(@@@)"
  225.          BackColor       =   16776960
  226.          HighlightInverted=   1
  227.       End
  228.    End
  229.    Begin VB.Frame Frame2 
  230.       Caption         =   "Exchange ""Text"" property"
  231.       Height          =   1335
  232.       Left            =   120
  233.       TabIndex        =   3
  234.       Top             =   1680
  235.       Width           =   2895
  236.       Begin PVMaskEditLib.PVMaskEdit Mask4 
  237.          Height          =   330
  238.          Left            =   120
  239.          TabIndex        =   5
  240.          Top             =   840
  241.          Width           =   2505
  242.          _Version        =   65541
  243.          _ExtentX        =   4419
  244.          _ExtentY        =   582
  245.          _StockProps     =   244
  246.          Text            =   "Oct3196"
  247.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  248.             name            =   "MS Sans Serif"
  249.             charset         =   0
  250.             weight          =   700
  251.             size            =   9.75
  252.             underline       =   0   'False
  253.             italic          =   0   'False
  254.             strikethrough   =   0   'False
  255.          EndProperty
  256.          Appearance      =   1
  257.          DisplayFormat   =   1
  258.          Text            =   "Oct3196"
  259.          Mask            =   "@@@-##-##"
  260.          HighlightColor  =   12632256
  261.          SelectionPersistance=   2
  262.          Autoscroll      =   0   'False
  263.          HighlightInverted=   1
  264.       End
  265.       Begin PVMaskEditLib.PVMaskEdit Mask3 
  266.          Height          =   330
  267.          Left            =   120
  268.          TabIndex        =   4
  269.          Top             =   360
  270.          Width           =   2505
  271.          _Version        =   65541
  272.          _ExtentX        =   4419
  273.          _ExtentY        =   582
  274.          _StockProps     =   244
  275.          Text            =   "Oct3196"
  276.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  277.             name            =   "MS Sans Serif"
  278.             charset         =   0
  279.             weight          =   700
  280.             size            =   9.75
  281.             underline       =   0   'False
  282.             italic          =   0   'False
  283.             strikethrough   =   0   'False
  284.          EndProperty
  285.          Appearance      =   1
  286.          DisplayFormat   =   1
  287.          Text            =   "Oct3196"
  288.          Mask            =   "@@@-##-##"
  289.          SelectionPersistance=   2
  290.          Autoscroll      =   0   'False
  291.       End
  292.    End
  293.    Begin VB.Frame Frame1 
  294.       Caption         =   "Exchange ""TextWithMask"" property"
  295.       Height          =   1335
  296.       Left            =   120
  297.       TabIndex        =   0
  298.       Top             =   120
  299.       Width           =   2895
  300.       Begin PVMaskEditLib.PVMaskEdit Mask2 
  301.          Height          =   375
  302.          Left            =   120
  303.          TabIndex        =   2
  304.          Top             =   840
  305.          Width           =   2655
  306.          _Version        =   65541
  307.          _ExtentX        =   4683
  308.          _ExtentY        =   661
  309.          _StockProps     =   244
  310.          Text            =   "1234567890123"
  311.          Appearance      =   1
  312.          Text            =   "1234567890123"
  313.          Mask            =   "Tel. (###) ###-####  Ext. ###"
  314.          HighlightInverted=   1
  315.       End
  316.       Begin PVMaskEditLib.PVMaskEdit Mask1 
  317.          Height          =   375
  318.          Left            =   120
  319.          TabIndex        =   1
  320.          Top             =   360
  321.          Width           =   2655
  322.          _Version        =   65541
  323.          _ExtentX        =   4683
  324.          _ExtentY        =   661
  325.          _StockProps     =   244
  326.          Text            =   "1234567890123"
  327.          Appearance      =   1
  328.          Text            =   "1234567890123"
  329.          Mask            =   "Tel. (###) ###-####  Ext. ###"
  330.       End
  331.    End
  332.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit21 
  333.       Height          =   330
  334.       Left            =   3240
  335.       TabIndex        =   40
  336.       Top             =   6907
  337.       Width           =   1995
  338.       _Version        =   65541
  339.       _ExtentX        =   3519
  340.       _ExtentY        =   582
  341.       _StockProps     =   244
  342.       Text            =   "Style"
  343.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  344.          name            =   "MS Sans Serif"
  345.          charset         =   0
  346.          weight          =   700
  347.          size            =   12
  348.          underline       =   0   'False
  349.          italic          =   -1  'True
  350.          strikethrough   =   0   'False
  351.       EndProperty
  352.       Appearance      =   0
  353.       DisplayFormat   =   1
  354.       Text            =   "Style"
  355.       HighlightColor  =   12632256
  356.    End
  357.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit20 
  358.       Height          =   225
  359.       Left            =   3240
  360.       TabIndex        =   39
  361.       Top             =   6696
  362.       Width           =   2265
  363.       _Version        =   65541
  364.       _ExtentX        =   3995
  365.       _ExtentY        =   397
  366.       _StockProps     =   244
  367.       Text            =   "Display"
  368.       Appearance      =   0
  369.       DisplayFormat   =   1
  370.       Text            =   "Display"
  371.       HighlightColor  =   65535
  372.       SelectionPersistance=   2
  373.    End
  374.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit19 
  375.       Height          =   225
  376.       Left            =   3240
  377.       TabIndex        =   38
  378.       Top             =   6480
  379.       Width           =   2265
  380.       _Version        =   65541
  381.       _ExtentX        =   3995
  382.       _ExtentY        =   397
  383.       _StockProps     =   244
  384.       Text            =   "Formatted"
  385.       Appearance      =   0
  386.       DisplayFormat   =   1
  387.       Text            =   "Formatted"
  388.       HighlightColor  =   65280
  389.       SelectionPersistance=   2
  390.    End
  391.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit18 
  392.       Height          =   495
  393.       Left            =   5040
  394.       TabIndex        =   37
  395.       Top             =   5880
  396.       Width           =   2535
  397.       _Version        =   65541
  398.       _ExtentX        =   4471
  399.       _ExtentY        =   873
  400.       _StockProps     =   244
  401.       Text            =   "& any Color"
  402.       Appearance      =   1
  403.       DisplayFormat   =   5
  404.       Text            =   "& any Color"
  405.       BackColor       =   255
  406.       ForeColor       =   16776960
  407.       HighlightColor  =   12632256
  408.       HighlightInverted=   1
  409.    End
  410.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit17 
  411.       Height          =   495
  412.       Left            =   3240
  413.       TabIndex        =   36
  414.       Top             =   5880
  415.       Width           =   1815
  416.       _Version        =   65541
  417.       _ExtentX        =   3201
  418.       _ExtentY        =   873
  419.       _StockProps     =   244
  420.       Text            =   "Any Size"
  421.       Appearance      =   1
  422.       DisplayFormat   =   5
  423.       Text            =   "Any Size"
  424.       BackColor       =   8421504
  425.       ForeColor       =   65535
  426.       HighlightColor  =   0
  427.    End
  428.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit16 
  429.       Height          =   615
  430.       Left            =   3240
  431.       TabIndex        =   35
  432.       Top             =   5160
  433.       Width           =   4335
  434.       _Version        =   65541
  435.       _ExtentX        =   7646
  436.       _ExtentY        =   1085
  437.       _StockProps     =   244
  438.       Text            =   "It's LED Bold"
  439.       Appearance      =   1
  440.       DisplayFormat   =   6
  441.       Text            =   "It's LED Bold"
  442.       BackColor       =   0
  443.       ForeColor       =   16776960
  444.       HighlightColor  =   12632256
  445.    End
  446.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit15 
  447.       Height          =   375
  448.       Left            =   3240
  449.       TabIndex        =   34
  450.       Top             =   4680
  451.       Width           =   4290
  452.       _Version        =   65541
  453.       _ExtentX        =   7567
  454.       _ExtentY        =   661
  455.       _StockProps     =   244
  456.       Text            =   "Inverted"
  457.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  458.          name            =   "MS Sans Serif"
  459.          charset         =   0
  460.          weight          =   700
  461.          size            =   12
  462.          underline       =   0   'False
  463.          italic          =   0   'False
  464.          strikethrough   =   0   'False
  465.       EndProperty
  466.       Appearance      =   0
  467.       DisplayFormat   =   4
  468.       Text            =   "Inverted"
  469.       BackColor       =   16776960
  470.       ForeColor       =   16777215
  471.       HighlightColor  =   12632256
  472.       Alignment       =   2
  473.    End
  474.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit14 
  475.       Height          =   495
  476.       Left            =   3240
  477.       TabIndex        =   33
  478.       Top             =   4200
  479.       Width           =   4290
  480.       _Version        =   65541
  481.       _ExtentX        =   7567
  482.       _ExtentY        =   873
  483.       _StockProps     =   244
  484.       Text            =   "Odometer"
  485.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  486.          name            =   "MS Sans Serif"
  487.          charset         =   0
  488.          weight          =   700
  489.          size            =   12
  490.          underline       =   0   'False
  491.          italic          =   0   'False
  492.          strikethrough   =   0   'False
  493.       EndProperty
  494.       Appearance      =   0
  495.       DisplayFormat   =   4
  496.       Text            =   "Odometer"
  497.       BackColor       =   16776960
  498.       ForeColor       =   16777215
  499.       HighlightColor  =   12632256
  500.       HighlightInverted=   1
  501.    End
  502.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit13 
  503.       Height          =   375
  504.       Left            =   5760
  505.       TabIndex        =   32
  506.       Top             =   3720
  507.       Width           =   1725
  508.       _Version        =   65541
  509.       _ExtentX        =   3043
  510.       _ExtentY        =   661
  511.       _StockProps     =   244
  512.       Text            =   "Light"
  513.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  514.          name            =   "MS Sans Serif"
  515.          charset         =   0
  516.          weight          =   700
  517.          size            =   12
  518.          underline       =   0   'False
  519.          italic          =   0   'False
  520.          strikethrough   =   0   'False
  521.       EndProperty
  522.       Appearance      =   0
  523.       DisplayFormat   =   3
  524.       Text            =   "Light"
  525.       BackColor       =   -2147483633
  526.       ForeColor       =   0
  527.       HighlightColor  =   12632256
  528.       HighlightInverted=   1
  529.    End
  530.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit12 
  531.       Height          =   375
  532.       Left            =   3240
  533.       TabIndex        =   31
  534.       Top             =   3720
  535.       Width           =   2325
  536.       _Version        =   65541
  537.       _ExtentX        =   4101
  538.       _ExtentY        =   661
  539.       _StockProps     =   244
  540.       Text            =   "Odometer"
  541.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  542.          name            =   "MS Sans Serif"
  543.          charset         =   0
  544.          weight          =   700
  545.          size            =   12
  546.          underline       =   0   'False
  547.          italic          =   0   'False
  548.          strikethrough   =   0   'False
  549.       EndProperty
  550.       BorderStyle     =   1
  551.       Appearance      =   0
  552.       BorderStyle     =   1
  553.       DisplayFormat   =   2
  554.       Text            =   "Odometer"
  555.       BackColor       =   16776960
  556.       ForeColor       =   0
  557.       HighlightColor  =   12632256
  558.       HighlightInverted=   1
  559.    End
  560.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit11 
  561.       Height          =   495
  562.       Left            =   3240
  563.       TabIndex        =   30
  564.       Top             =   3240
  565.       Width           =   3855
  566.       _Version        =   65541
  567.       _ExtentX        =   6800
  568.       _ExtentY        =   873
  569.       _StockProps     =   244
  570.       Text            =   "Display Styles:"
  571.       Appearance      =   0
  572.       DisplayFormat   =   6
  573.       Text            =   "Display Styles:"
  574.       BackColor       =   -2147483633
  575.       ForeColor       =   8388608
  576.       HighlightColor  =   12632256
  577.       Autoscroll      =   0   'False
  578.       ReadOnly        =   -1  'True
  579.    End
  580.    Begin VB.Label Label4 
  581.       Caption         =   "Copy to Clipboard only Valid Text"
  582.       Height          =   255
  583.       Left            =   120
  584.       TabIndex        =   16
  585.       Top             =   6600
  586.       Width           =   2655
  587.    End
  588.    Begin VB.Label Label3 
  589.       Caption         =   "Copy to Clipboard Everything"
  590.       Height          =   255
  591.       Left            =   120
  592.       TabIndex        =   15
  593.       Top             =   5880
  594.       Width           =   2895
  595.    End
  596.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit9 
  597.       Height          =   375
  598.       Left            =   120
  599.       TabIndex        =   14
  600.       Top             =   6840
  601.       Width           =   2895
  602.       _Version        =   65541
  603.       _ExtentX        =   5106
  604.       _ExtentY        =   661
  605.       _StockProps     =   244
  606.       Text            =   "12345"
  607.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  608.          name            =   "MS Sans Serif"
  609.          charset         =   0
  610.          weight          =   700
  611.          size            =   9.75
  612.          underline       =   0   'False
  613.          italic          =   0   'False
  614.          strikethrough   =   0   'False
  615.       EndProperty
  616.       Appearance      =   1
  617.       Text            =   "12345"
  618.       Mask            =   "Tel. (###) ###-####  Ext. ###"
  619.       BackColor       =   16776960
  620.    End
  621.    Begin PVMaskEditLib.PVMaskEdit PVMaskEdit8 
  622.       Height          =   375
  623.       Left            =   120
  624.       TabIndex        =   13
  625.       Top             =   6120
  626.       Width           =   2895
  627.       _Version        =   65541
  628.       _ExtentX        =   5106
  629.       _ExtentY        =   661
  630.       _StockProps     =   244
  631.       Text            =   "12345"
  632.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  633.          name            =   "MS Sans Serif"
  634.          charset         =   0
  635.          weight          =   700
  636.          size            =   9.75
  637.          underline       =   0   'False
  638.          italic          =   0   'False
  639.          strikethrough   =   0   'False
  640.       EndProperty
  641.       Appearance      =   1
  642.       Text            =   "12345"
  643.       Mask            =   "Tel. (###) ###-####  Ext. ###"
  644.       BackColor       =   65535
  645.       CopyTextAndMask =   1
  646.       CopyEmptyMask   =   1
  647.       HighlightInverted=   1
  648.    End
  649. Attribute VB_Name = "Form1"
  650. Attribute VB_Creatable = False
  651. Attribute VB_Exposed = False
  652. Dim iWidth As Integer
  653. Dim iHeight As Integer
  654. Private Function GetColor(id As Integer) As Long
  655.     Select Case id
  656. '        case 0:  return 0x02ffffff;
  657. '        case 1:  return 0x02c0c0c0;
  658. '        case 2:  return 0x02808080;
  659. '        case 3:  return 0x02ffff00;
  660. '        case 4:  return 0x02ff0000;
  661. '        case 5:  return 0x0200ff00;
  662. '        case 6:  return 0x02008000;
  663. '        case 7:  return 0x0200ffff;
  664. '        case 8:  return 0x020000ff;
  665. '        case 9:  return 0x02ff00ff;
  666. '        case 10: return 0x02000080;
  667. '        case 11: return 0x02000000;
  668.         Case 0:  GetColor = RGB(256, 256, 256)
  669.         Case 1:  GetColor = &H2C0C0C0
  670.         Case 2:  GetColor = RGB(&H80, &H80, &H80)
  671.         Case 3:  GetColor = RGB(0, 256, 256)
  672.         Case 4:  GetColor = RGB(0, 0, 256)
  673.         Case 5:  GetColor = RGB(0, 256, 0)
  674.         Case 6:  GetColor = &H2008000
  675.         Case 7:  GetColor = RGB(256, 256, 0)
  676.         Case 8:  GetColor = RGB(256, 0, 0)
  677.         Case 9:  GetColor = RGB(256, 0, 256)
  678.         Case 10: GetColor = &H2000080
  679.         Case Else: GetColor = RGB(0, 0, 0)
  680.     End Select
  681. End Function
  682. Private Sub BackColorCombo_Click()
  683.     Mask0.BackColor = GetColor(BackColorCombo.ListIndex)
  684. End Sub
  685. Private Sub BorderCheck_Click()
  686.     If BorderCheck Then
  687.         Mask0.BorderStyle = 1
  688.     Else: Mask0.BorderStyle = 0
  689.     End If
  690. End Sub
  691. Private Sub CloseButton_Click()
  692.     End
  693. End Sub
  694. Private Sub DisplayCombo_Click()
  695.     Mask0.DisplayFormat = DisplayCombo.ListIndex
  696.     ForeColorCombo_Click
  697.     BackColorCombo_Click
  698.     HighlightColorCombo_Click
  699.     Mask0.Width = iWidth
  700.     Mask0.Height = iHeight
  701. End Sub
  702. Private Sub FlatCheck_Click()
  703.     If FlatCheck Then
  704.         Mask0.Appearance = 0
  705.     Else: Mask0.Appearance = 1
  706.     End If
  707.     BorderCheck.Enabled = FlatCheck
  708. End Sub
  709. Private Sub ForeColorCombo_Click()
  710.     Mask0.ForeColor = GetColor(ForeColorCombo.ListIndex)
  711. End Sub
  712. Private Sub Form_Load()
  713.     iWidth = Mask0.Width
  714.     iHeight = Mask0.Height
  715.     DisplayCombo.ListIndex = 0
  716.     BackColorCombo.ListIndex = 0
  717.     ForeColorCombo.ListIndex = 11
  718.     HighlightColorCombo.ListIndex = 4
  719.     ForeColorCombo_Click
  720.     BackColorCombo_Click
  721.     HighlightColorCombo_Click
  722. End Sub
  723. Private Sub HighlightCheck_Click()
  724.     Mask0.HighlightInverted = HighlightCheck
  725.     HighlightColorCombo.Enabled = HighlightCheck - 1
  726. End Sub
  727. Private Sub HighlightColorCombo_Click()
  728.     Mask0.HighlightColor = GetColor(HighlightColorCombo.ListIndex)
  729. End Sub
  730. Private Sub Mask1_KeyUp(KeyCode As Integer, Shift As Integer)
  731.     Mask2.TextWithMask = Mask1.TextWithMask
  732. End Sub
  733. Private Sub Mask2_KeyUp(KeyCode As Integer, Shift As Integer)
  734.     Mask1.TextWithMask = Mask2.TextWithMask
  735. End Sub
  736. Private Sub Mask3_KeyUp(KeyCode As Integer, Shift As Integer)
  737.     Mask4 = Mask3
  738. End Sub
  739. Private Sub Mask4_KeyUp(KeyCode As Integer, Shift As Integer)
  740.     Mask3 = Mask4
  741. End Sub
  742. Private Sub SetButton_Click()
  743.     Mask7.Mask = Mask5
  744.     Mask7 = Mask6
  745. End Sub
  746.