home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch05 / cdbox / cdbox.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  110.8 KB  |  3,122 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   6270
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   9735
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6270
  12.    ScaleWidth      =   9735
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin TabDlg.SSTab SSTab1 
  15.       Height          =   5820
  16.       Left            =   195
  17.       TabIndex        =   0
  18.       Top             =   225
  19.       Width           =   9360
  20.       _ExtentX        =   16510
  21.       _ExtentY        =   10266
  22.       _Version        =   327680
  23.       Tabs            =   6
  24.       TabsPerRow      =   6
  25.       TabHeight       =   520
  26.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  27.          Name            =   "Times New Roman"
  28.          Size            =   11.25
  29.          Charset         =   0
  30.          Weight          =   400
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       TabCaption(0)   =   "Font"
  36.       TabPicture(0)   =   "CDBox.frx":0000
  37.       Tab(0).ControlCount=   29
  38.       Tab(0).ControlEnabled=   -1  'True
  39.       Tab(0).Control(0)=   "Label1"
  40.       Tab(0).Control(0).Enabled=   0   'False
  41.       Tab(0).Control(1)=   "Label2"
  42.       Tab(0).Control(1).Enabled=   0   'False
  43.       Tab(0).Control(2)=   "Sample"
  44.       Tab(0).Control(2).Enabled=   0   'False
  45.       Tab(0).Control(3)=   "Frame6"
  46.       Tab(0).Control(3).Enabled=   0   'False
  47.       Tab(0).Control(4)=   "Check1(0)"
  48.       Tab(0).Control(4).Enabled=   0   'False
  49.       Tab(0).Control(5)=   "Check1(2)"
  50.       Tab(0).Control(5).Enabled=   0   'False
  51.       Tab(0).Control(6)=   "Check1(3)"
  52.       Tab(0).Control(6).Enabled=   0   'False
  53.       Tab(0).Control(7)=   "Check1(4)"
  54.       Tab(0).Control(7).Enabled=   0   'False
  55.       Tab(0).Control(8)=   "Check1(5)"
  56.       Tab(0).Control(8).Enabled=   0   'False
  57.       Tab(0).Control(9)=   "Check1(6)"
  58.       Tab(0).Control(9).Enabled=   0   'False
  59.       Tab(0).Control(10)=   "Check1(7)"
  60.       Tab(0).Control(10).Enabled=   0   'False
  61.       Tab(0).Control(11)=   "Check1(8)"
  62.       Tab(0).Control(11).Enabled=   0   'False
  63.       Tab(0).Control(12)=   "Check1(1)"
  64.       Tab(0).Control(12).Enabled=   0   'False
  65.       Tab(0).Control(13)=   "Check1(9)"
  66.       Tab(0).Control(13).Enabled=   0   'False
  67.       Tab(0).Control(14)=   "Check1(10)"
  68.       Tab(0).Control(14).Enabled=   0   'False
  69.       Tab(0).Control(15)=   "Check1(11)"
  70.       Tab(0).Control(15).Enabled=   0   'False
  71.       Tab(0).Control(16)=   "Check1(13)"
  72.       Tab(0).Control(16).Enabled=   0   'False
  73.       Tab(0).Control(17)=   "Check1(14)"
  74.       Tab(0).Control(17).Enabled=   0   'False
  75.       Tab(0).Control(18)=   "Check1(15)"
  76.       Tab(0).Control(18).Enabled=   0   'False
  77.       Tab(0).Control(19)=   "Check1(16)"
  78.       Tab(0).Control(19).Enabled=   0   'False
  79.       Tab(0).Control(20)=   "Check1(17)"
  80.       Tab(0).Control(20).Enabled=   0   'False
  81.       Tab(0).Control(21)=   "Check1(12)"
  82.       Tab(0).Control(21).Enabled=   0   'False
  83.       Tab(0).Control(22)=   "Text1"
  84.       Tab(0).Control(22).Enabled=   0   'False
  85.       Tab(0).Control(23)=   "Text2"
  86.       Tab(0).Control(23).Enabled=   0   'False
  87.       Tab(0).Control(24)=   "FBold"
  88.       Tab(0).Control(24).Enabled=   0   'False
  89.       Tab(0).Control(25)=   "FItalic"
  90.       Tab(0).Control(25).Enabled=   0   'False
  91.       Tab(0).Control(26)=   "FULine"
  92.       Tab(0).Control(26).Enabled=   0   'False
  93.       Tab(0).Control(27)=   "FStrike"
  94.       Tab(0).Control(27).Enabled=   0   'False
  95.       Tab(0).Control(28)=   "Command1"
  96.       Tab(0).Control(28).Enabled=   0   'False
  97.       TabCaption(1)   =   "Color"
  98.       TabPicture(1)   =   "CDBox.frx":001C
  99.       Tab(1).ControlCount=   12
  100.       Tab(1).ControlEnabled=   0   'False
  101.       Tab(1).Control(0)=   "HClrValue"
  102.       Tab(1).Control(0).Enabled=   -1  'True
  103.       Tab(1).Control(1)=   "DClrValue"
  104.       Tab(1).Control(1).Enabled=   -1  'True
  105.       Tab(1).Control(2)=   "Command2"
  106.       Tab(1).Control(2).Enabled=   -1  'True
  107.       Tab(1).Control(3)=   "Picture1"
  108.       Tab(1).Control(3).Enabled=   -1  'True
  109.       Tab(1).Control(4)=   "Check2(0)"
  110.       Tab(1).Control(4).Enabled=   -1  'True
  111.       Tab(1).Control(5)=   "Check2(3)"
  112.       Tab(1).Control(5).Enabled=   -1  'True
  113.       Tab(1).Control(6)=   "Check2(2)"
  114.       Tab(1).Control(6).Enabled=   -1  'True
  115.       Tab(1).Control(7)=   "Check2(1)"
  116.       Tab(1).Control(7).Enabled=   -1  'True
  117.       Tab(1).Control(8)=   "Frame5"
  118.       Tab(1).Control(8).Enabled=   -1  'True
  119.       Tab(1).Control(9)=   "Label5"
  120.       Tab(1).Control(9).Enabled=   -1  'True
  121.       Tab(1).Control(10)=   "Label4"
  122.       Tab(1).Control(10).Enabled=   -1  'True
  123.       Tab(1).Control(11)=   "Label3"
  124.       Tab(1).Control(11).Enabled=   -1  'True
  125.       TabCaption(2)   =   "FileOpen"
  126.       TabPicture(2)   =   "CDBox.frx":0038
  127.       Tab(2).ControlCount=   30
  128.       Tab(2).ControlEnabled=   0   'False
  129.       Tab(2).Control(0)=   "Command3"
  130.       Tab(2).Control(0).Enabled=   -1  'True
  131.       Tab(2).Control(1)=   "FName"
  132.       Tab(2).Control(1).Enabled=   -1  'True
  133.       Tab(2).Control(2)=   "Filter"
  134.       Tab(2).Control(2).Enabled=   -1  'True
  135.       Tab(2).Control(3)=   "FilterIdx"
  136.       Tab(2).Control(3).Enabled=   -1  'True
  137.       Tab(2).Control(4)=   "InitialDir"
  138.       Tab(2).Control(4).Enabled=   -1  'True
  139.       Tab(2).Control(5)=   "DefExt"
  140.       Tab(2).Control(5).Enabled=   -1  'True
  141.       Tab(2).Control(6)=   "Check3(0)"
  142.       Tab(2).Control(6).Enabled=   -1  'True
  143.       Tab(2).Control(7)=   "Check3(15)"
  144.       Tab(2).Control(7).Enabled=   -1  'True
  145.       Tab(2).Control(8)=   "Check3(14)"
  146.       Tab(2).Control(8).Enabled=   -1  'True
  147.       Tab(2).Control(9)=   "Check3(13)"
  148.       Tab(2).Control(9).Enabled=   -1  'True
  149.       Tab(2).Control(10)=   "Check3(12)"
  150.       Tab(2).Control(10).Enabled=   -1  'True
  151.       Tab(2).Control(11)=   "Check3(11)"
  152.       Tab(2).Control(11).Enabled=   -1  'True
  153.       Tab(2).Control(12)=   "Check3(10)"
  154.       Tab(2).Control(12).Enabled=   -1  'True
  155.       Tab(2).Control(13)=   "Check3(9)"
  156.       Tab(2).Control(13).Enabled=   -1  'True
  157.       Tab(2).Control(14)=   "Check3(8)"
  158.       Tab(2).Control(14).Enabled=   -1  'True
  159.       Tab(2).Control(15)=   "Check3(7)"
  160.       Tab(2).Control(15).Enabled=   -1  'True
  161.       Tab(2).Control(16)=   "Check3(6)"
  162.       Tab(2).Control(16).Enabled=   -1  'True
  163.       Tab(2).Control(17)=   "Check3(5)"
  164.       Tab(2).Control(17).Enabled=   -1  'True
  165.       Tab(2).Control(18)=   "Check3(4)"
  166.       Tab(2).Control(18).Enabled=   -1  'True
  167.       Tab(2).Control(19)=   "Check3(3)"
  168.       Tab(2).Control(19).Enabled=   -1  'True
  169.       Tab(2).Control(20)=   "Check3(2)"
  170.       Tab(2).Control(20).Enabled=   -1  'True
  171.       Tab(2).Control(21)=   "Check3(1)"
  172.       Tab(2).Control(21).Enabled=   -1  'True
  173.       Tab(2).Control(22)=   "Frame1"
  174.       Tab(2).Control(22).Enabled=   -1  'True
  175.       Tab(2).Control(23)=   "FTitle"
  176.       Tab(2).Control(23).Enabled=   -1  'True
  177.       Tab(2).Control(24)=   "Label11"
  178.       Tab(2).Control(24).Enabled=   -1  'True
  179.       Tab(2).Control(25)=   "Label10"
  180.       Tab(2).Control(25).Enabled=   -1  'True
  181.       Tab(2).Control(26)=   "Label9"
  182.       Tab(2).Control(26).Enabled=   -1  'True
  183.       Tab(2).Control(27)=   "Label8"
  184.       Tab(2).Control(27).Enabled=   -1  'True
  185.       Tab(2).Control(28)=   "Label7"
  186.       Tab(2).Control(28).Enabled=   -1  'True
  187.       Tab(2).Control(29)=   "Label6"
  188.       Tab(2).Control(29).Enabled=   -1  'True
  189.       TabCaption(3)   =   "FileSave"
  190.       TabPicture(3)   =   "CDBox.frx":0054
  191.       Tab(3).ControlCount=   30
  192.       Tab(3).ControlEnabled=   0   'False
  193.       Tab(3).Control(0)=   "FSDefExt"
  194.       Tab(3).Control(0).Enabled=   -1  'True
  195.       Tab(3).Control(1)=   "FSInitialDir"
  196.       Tab(3).Control(1).Enabled=   -1  'True
  197.       Tab(3).Control(2)=   "FSFilterIdx"
  198.       Tab(3).Control(2).Enabled=   -1  'True
  199.       Tab(3).Control(3)=   "FSFilter"
  200.       Tab(3).Control(3).Enabled=   -1  'True
  201.       Tab(3).Control(4)=   "Command4"
  202.       Tab(3).Control(4).Enabled=   -1  'True
  203.       Tab(3).Control(5)=   "Check4(1)"
  204.       Tab(3).Control(5).Enabled=   -1  'True
  205.       Tab(3).Control(6)=   "Check4(2)"
  206.       Tab(3).Control(6).Enabled=   -1  'True
  207.       Tab(3).Control(7)=   "Check4(3)"
  208.       Tab(3).Control(7).Enabled=   -1  'True
  209.       Tab(3).Control(8)=   "Check4(4)"
  210.       Tab(3).Control(8).Enabled=   -1  'True
  211.       Tab(3).Control(9)=   "Check4(5)"
  212.       Tab(3).Control(9).Enabled=   -1  'True
  213.       Tab(3).Control(10)=   "Check4(6)"
  214.       Tab(3).Control(10).Enabled=   -1  'True
  215.       Tab(3).Control(11)=   "Check4(7)"
  216.       Tab(3).Control(11).Enabled=   -1  'True
  217.       Tab(3).Control(12)=   "Check4(8)"
  218.       Tab(3).Control(12).Enabled=   -1  'True
  219.       Tab(3).Control(13)=   "Check4(9)"
  220.       Tab(3).Control(13).Enabled=   -1  'True
  221.       Tab(3).Control(14)=   "Check4(10)"
  222.       Tab(3).Control(14).Enabled=   -1  'True
  223.       Tab(3).Control(15)=   "Check4(11)"
  224.       Tab(3).Control(15).Enabled=   -1  'True
  225.       Tab(3).Control(16)=   "Check4(12)"
  226.       Tab(3).Control(16).Enabled=   -1  'True
  227.       Tab(3).Control(17)=   "Check4(13)"
  228.       Tab(3).Control(17).Enabled=   -1  'True
  229.       Tab(3).Control(18)=   "Check4(14)"
  230.       Tab(3).Control(18).Enabled=   -1  'True
  231.       Tab(3).Control(19)=   "Check4(15)"
  232.       Tab(3).Control(19).Enabled=   -1  'True
  233.       Tab(3).Control(20)=   "Check4(0)"
  234.       Tab(3).Control(20).Enabled=   -1  'True
  235.       Tab(3).Control(21)=   "Frame2"
  236.       Tab(3).Control(21).Enabled=   -1  'True
  237.       Tab(3).Control(22)=   "FSFName"
  238.       Tab(3).Control(22).Enabled=   -1  'True
  239.       Tab(3).Control(23)=   "FSTitle"
  240.       Tab(3).Control(23).Enabled=   -1  'True
  241.       Tab(3).Control(24)=   "Label17"
  242.       Tab(3).Control(24).Enabled=   -1  'True
  243.       Tab(3).Control(25)=   "Label16"
  244.       Tab(3).Control(25).Enabled=   -1  'True
  245.       Tab(3).Control(26)=   "Label15"
  246.       Tab(3).Control(26).Enabled=   -1  'True
  247.       Tab(3).Control(27)=   "Label14"
  248.       Tab(3).Control(27).Enabled=   -1  'True
  249.       Tab(3).Control(28)=   "Label13"
  250.       Tab(3).Control(28).Enabled=   -1  'True
  251.       Tab(3).Control(29)=   "Label12"
  252.       Tab(3).Control(29).Enabled=   -1  'True
  253.       TabCaption(4)   =   "Print"
  254.       TabPicture(4)   =   "CDBox.frx":0070
  255.       Tab(4).ControlCount=   27
  256.       Tab(4).ControlEnabled=   0   'False
  257.       Tab(4).Control(0)=   "Command5"
  258.       Tab(4).Control(0).Enabled=   -1  'True
  259.       Tab(4).Control(1)=   "ToPage"
  260.       Tab(4).Control(1).Enabled=   -1  'True
  261.       Tab(4).Control(2)=   "Copies"
  262.       Tab(4).Control(2).Enabled=   -1  'True
  263.       Tab(4).Control(3)=   "FromPage"
  264.       Tab(4).Control(3).Enabled=   -1  'True
  265.       Tab(4).Control(4)=   "Check5(16)"
  266.       Tab(4).Control(4).Enabled=   -1  'True
  267.       Tab(4).Control(5)=   "Check5(15)"
  268.       Tab(4).Control(5).Enabled=   -1  'True
  269.       Tab(4).Control(6)=   "Check5(14)"
  270.       Tab(4).Control(6).Enabled=   -1  'True
  271.       Tab(4).Control(7)=   "Check5(13)"
  272.       Tab(4).Control(7).Enabled=   -1  'True
  273.       Tab(4).Control(8)=   "Check5(12)"
  274.       Tab(4).Control(8).Enabled=   -1  'True
  275.       Tab(4).Control(9)=   "Check5(11)"
  276.       Tab(4).Control(9).Enabled=   -1  'True
  277.       Tab(4).Control(10)=   "Check5(10)"
  278.       Tab(4).Control(10).Enabled=   -1  'True
  279.       Tab(4).Control(11)=   "Check5(9)"
  280.       Tab(4).Control(11).Enabled=   -1  'True
  281.       Tab(4).Control(12)=   "Check5(8)"
  282.       Tab(4).Control(12).Enabled=   -1  'True
  283.       Tab(4).Control(13)=   "Check5(7)"
  284.       Tab(4).Control(13).Enabled=   -1  'True
  285.       Tab(4).Control(14)=   "Check5(6)"
  286.       Tab(4).Control(14).Enabled=   -1  'True
  287.       Tab(4).Control(15)=   "Check5(5)"
  288.       Tab(4).Control(15).Enabled=   -1  'True
  289.       Tab(4).Control(16)=   "Check5(4)"
  290.       Tab(4).Control(16).Enabled=   -1  'True
  291.       Tab(4).Control(17)=   "Check5(3)"
  292.       Tab(4).Control(17).Enabled=   -1  'True
  293.       Tab(4).Control(18)=   "Check5(2)"
  294.       Tab(4).Control(18).Enabled=   -1  'True
  295.       Tab(4).Control(19)=   "Check5(1)"
  296.       Tab(4).Control(19).Enabled=   -1  'True
  297.       Tab(4).Control(20)=   "Check5(0)"
  298.       Tab(4).Control(20).Enabled=   -1  'True
  299.       Tab(4).Control(21)=   "Frame3"
  300.       Tab(4).Control(21).Enabled=   -1  'True
  301.       Tab(4).Control(22)=   "PDevice"
  302.       Tab(4).Control(22).Enabled=   -1  'True
  303.       Tab(4).Control(23)=   "HDCLabel"
  304.       Tab(4).Control(23).Enabled=   -1  'True
  305.       Tab(4).Control(24)=   "PageToLabel"
  306.       Tab(4).Control(24).Enabled=   -1  'True
  307.       Tab(4).Control(25)=   "CopiesLabel"
  308.       Tab(4).Control(25).Enabled=   -1  'True
  309.       Tab(4).Control(26)=   "PageFromLabel"
  310.       Tab(4).Control(26).Enabled=   -1  'True
  311.       TabCaption(5)   =   "Help"
  312.       TabPicture(5)   =   "CDBox.frx":008C
  313.       Tab(5).ControlCount=   20
  314.       Tab(5).ControlEnabled=   0   'False
  315.       Tab(5).Control(0)=   "Command6"
  316.       Tab(5).Control(0).Enabled=   -1  'True
  317.       Tab(5).Control(1)=   "HLPKey"
  318.       Tab(5).Control(1).Enabled=   -1  'True
  319.       Tab(5).Control(2)=   "HLPCID"
  320.       Tab(5).Control(2).Enabled=   -1  'True
  321.       Tab(5).Control(3)=   "HLPFile"
  322.       Tab(5).Control(3).Enabled=   -1  'True
  323.       Tab(5).Control(4)=   "Check6(11)"
  324.       Tab(5).Control(4).Enabled=   -1  'True
  325.       Tab(5).Control(5)=   "Check6(10)"
  326.       Tab(5).Control(5).Enabled=   -1  'True
  327.       Tab(5).Control(6)=   "Check6(8)"
  328.       Tab(5).Control(6).Enabled=   -1  'True
  329.       Tab(5).Control(7)=   "Check6(7)"
  330.       Tab(5).Control(7).Enabled=   -1  'True
  331.       Tab(5).Control(8)=   "Check6(6)"
  332.       Tab(5).Control(8).Enabled=   -1  'True
  333.       Tab(5).Control(9)=   "Check6(9)"
  334.       Tab(5).Control(9).Enabled=   -1  'True
  335.       Tab(5).Control(10)=   "Check6(5)"
  336.       Tab(5).Control(10).Enabled=   -1  'True
  337.       Tab(5).Control(11)=   "Check6(4)"
  338.       Tab(5).Control(11).Enabled=   -1  'True
  339.       Tab(5).Control(12)=   "Check6(3)"
  340.       Tab(5).Control(12).Enabled=   -1  'True
  341.       Tab(5).Control(13)=   "Check6(2)"
  342.       Tab(5).Control(13).Enabled=   -1  'True
  343.       Tab(5).Control(14)=   "Check6(1)"
  344.       Tab(5).Control(14).Enabled=   -1  'True
  345.       Tab(5).Control(15)=   "Check6(0)"
  346.       Tab(5).Control(15).Enabled=   -1  'True
  347.       Tab(5).Control(16)=   "Frame4"
  348.       Tab(5).Control(16).Enabled=   -1  'True
  349.       Tab(5).Control(17)=   "Label20"
  350.       Tab(5).Control(17).Enabled=   -1  'True
  351.       Tab(5).Control(18)=   "Label19"
  352.       Tab(5).Control(18).Enabled=   -1  'True
  353.       Tab(5).Control(19)=   "Label18"
  354.       Tab(5).Control(19).Enabled=   -1  'True
  355.       Begin VB.CommandButton Command6 
  356.          Caption         =   "Show Dialog Box"
  357.          BeginProperty Font 
  358.             Name            =   "Times New Roman"
  359.             Size            =   12
  360.             Charset         =   0
  361.             Weight          =   700
  362.             Underline       =   0   'False
  363.             Italic          =   0   'False
  364.             Strikethrough   =   0   'False
  365.          EndProperty
  366.          Height          =   690
  367.          Left            =   -68235
  368.          TabIndex        =   19
  369.          Top             =   4710
  370.          Width           =   2400
  371.       End
  372.       Begin VB.TextBox HLPKey 
  373.          BeginProperty Font 
  374.             Name            =   "Times New Roman"
  375.             Size            =   9
  376.             Charset         =   0
  377.             Weight          =   400
  378.             Underline       =   0   'False
  379.             Italic          =   0   'False
  380.             Strikethrough   =   0   'False
  381.          EndProperty
  382.          Height          =   330
  383.          Left            =   -69660
  384.          TabIndex        =   147
  385.          Top             =   3450
  386.          Width           =   2310
  387.       End
  388.       Begin VB.TextBox HLPCID 
  389.          BeginProperty Font 
  390.             Name            =   "Times New Roman"
  391.             Size            =   9
  392.             Charset         =   0
  393.             Weight          =   400
  394.             Underline       =   0   'False
  395.             Italic          =   0   'False
  396.             Strikethrough   =   0   'False
  397.          EndProperty
  398.          Height          =   330
  399.          Left            =   -69660
  400.          TabIndex        =   146
  401.          Top             =   2490
  402.          Width           =   540
  403.       End
  404.       Begin VB.TextBox HLPFile 
  405.          BeginProperty Font 
  406.             Name            =   "Times New Roman"
  407.             Size            =   9
  408.             Charset         =   0
  409.             Weight          =   400
  410.             Underline       =   0   'False
  411.             Italic          =   0   'False
  412.             Strikethrough   =   0   'False
  413.          EndProperty
  414.          Height          =   330
  415.          Left            =   -69660
  416.          TabIndex        =   143
  417.          Top             =   1530
  418.          Width           =   3780
  419.       End
  420.       Begin VB.CheckBox Check6 
  421.          Caption         =   "cdlHelpSetIndex"
  422.          BeginProperty Font 
  423.             Name            =   "Times New Roman"
  424.             Size            =   9
  425.             Charset         =   0
  426.             Weight          =   400
  427.             Underline       =   0   'False
  428.             Italic          =   0   'False
  429.             Strikethrough   =   0   'False
  430.          EndProperty
  431.          Height          =   255
  432.          Index           =   11
  433.          Left            =   -72060
  434.          TabIndex        =   141
  435.          Tag             =   "&H5&"
  436.          Top             =   3135
  437.          Width           =   1935
  438.       End
  439.       Begin VB.CheckBox Check6 
  440.          Caption         =   "cdlHelpSetContents    "
  441.          BeginProperty Font 
  442.             Name            =   "Times New Roman"
  443.             Size            =   9
  444.             Charset         =   0
  445.             Weight          =   400
  446.             Underline       =   0   'False
  447.             Italic          =   0   'False
  448.             Strikethrough   =   0   'False
  449.          EndProperty
  450.          Height          =   255
  451.          Index           =   10
  452.          Left            =   -72060
  453.          TabIndex        =   140
  454.          Tag             =   "&H5&"
  455.          Top             =   2778
  456.          Width           =   2190
  457.       End
  458.       Begin VB.CheckBox Check6 
  459.          Caption         =   "cdlHelpPartialKey    "
  460.          BeginProperty Font 
  461.             Name            =   "Times New Roman"
  462.             Size            =   9
  463.             Charset         =   0
  464.             Weight          =   400
  465.             Underline       =   0   'False
  466.             Italic          =   0   'False
  467.             Strikethrough   =   0   'False
  468.          EndProperty
  469.          Height          =   255
  470.          Index           =   8
  471.          Left            =   -72060
  472.          TabIndex        =   139
  473.          Tag             =   "&H105&"
  474.          Top             =   2064
  475.          Width           =   1980
  476.       End
  477.       Begin VB.CheckBox Check6 
  478.          Caption         =   "cdlHelpKey"
  479.          BeginProperty Font 
  480.             Name            =   "Times New Roman"
  481.             Size            =   9
  482.             Charset         =   0
  483.             Weight          =   400
  484.             Underline       =   0   'False
  485.             Italic          =   0   'False
  486.             Strikethrough   =   0   'False
  487.          EndProperty
  488.          Height          =   255
  489.          Index           =   7
  490.          Left            =   -72060
  491.          TabIndex        =   138
  492.          Tag             =   "&H101&"
  493.          Top             =   1707
  494.          Width           =   1980
  495.       End
  496.       Begin VB.CheckBox Check6 
  497.          Caption         =   "cdlHelpIndex"
  498.          BeginProperty Font 
  499.             Name            =   "Times New Roman"
  500.             Size            =   9
  501.             Charset         =   0
  502.             Weight          =   400
  503.             Underline       =   0   'False
  504.             Italic          =   0   'False
  505.             Strikethrough   =   0   'False
  506.          EndProperty
  507.          Height          =   255
  508.          Index           =   6
  509.          Left            =   -72060
  510.          TabIndex        =   137
  511.          Tag             =   "&H3&"
  512.          Top             =   1350
  513.          Width           =   1980
  514.       End
  515.       Begin VB.CheckBox Check6 
  516.          Caption         =   "cdlHelpQuit"
  517.          BeginProperty Font 
  518.             Name            =   "Times New Roman"
  519.             Size            =   9
  520.             Charset         =   0
  521.             Weight          =   400
  522.             Underline       =   0   'False
  523.             Italic          =   0   'False
  524.             Strikethrough   =   0   'False
  525.          EndProperty
  526.          Height          =   255
  527.          Index           =   9
  528.          Left            =   -72060
  529.          TabIndex        =   135
  530.          Tag             =   "&H2&"
  531.          Top             =   2421
  532.          Width           =   1980
  533.       End
  534.       Begin VB.CheckBox Check6 
  535.          Caption         =   "cdlHelpHelpOnHelp"
  536.          BeginProperty Font 
  537.             Name            =   "Times New Roman"
  538.             Size            =   9
  539.             Charset         =   0
  540.             Weight          =   400
  541.             Underline       =   0   'False
  542.             Italic          =   0   'False
  543.             Strikethrough   =   0   'False
  544.          EndProperty
  545.          Height          =   255
  546.          Index           =   5
  547.          Left            =   -74700
  548.          TabIndex        =   134
  549.          Tag             =   "&H4&"
  550.          Top             =   3135
  551.          Width           =   2430
  552.       End
  553.       Begin VB.CheckBox Check6 
  554.          Caption         =   "cdlHelpForceFile    "
  555.          BeginProperty Font 
  556.             Name            =   "Times New Roman"
  557.             Size            =   9
  558.             Charset         =   0
  559.             Weight          =   400
  560.             Underline       =   0   'False
  561.             Italic          =   0   'False
  562.             Strikethrough   =   0   'False
  563.          EndProperty
  564.          Height          =   255
  565.          Index           =   4
  566.          Left            =   -74700
  567.          TabIndex        =   133
  568.          Tag             =   "&H9&"
  569.          Top             =   2778
  570.          Width           =   1980
  571.       End
  572.       Begin VB.CheckBox Check6 
  573.          Caption         =   "cdlHelpContextPopup    "
  574.          BeginProperty Font 
  575.             Name            =   "Times New Roman"
  576.             Size            =   9
  577.             Charset         =   0
  578.             Weight          =   400
  579.             Underline       =   0   'False
  580.             Italic          =   0   'False
  581.             Strikethrough   =   0   'False
  582.          EndProperty
  583.          Height          =   255
  584.          Index           =   3
  585.          Left            =   -74700
  586.          TabIndex        =   132
  587.          Tag             =   "&H8&"
  588.          Top             =   2421
  589.          Width           =   2505
  590.       End
  591.       Begin VB.CheckBox Check6 
  592.          Caption         =   "cdlHelpContext"
  593.          BeginProperty Font 
  594.             Name            =   "Times New Roman"
  595.             Size            =   9
  596.             Charset         =   0
  597.             Weight          =   400
  598.             Underline       =   0   'False
  599.             Italic          =   0   'False
  600.             Strikethrough   =   0   'False
  601.          EndProperty
  602.          Height          =   255
  603.          Index           =   2
  604.          Left            =   -74700
  605.          TabIndex        =   131
  606.          Tag             =   "&H1&"
  607.          Top             =   2064
  608.          Width           =   1980
  609.       End
  610.       Begin VB.CheckBox Check6 
  611.          Caption         =   "cdlHelpContents"
  612.          BeginProperty Font 
  613.             Name            =   "Times New Roman"
  614.             Size            =   9
  615.             Charset         =   0
  616.             Weight          =   400
  617.             Underline       =   0   'False
  618.             Italic          =   0   'False
  619.             Strikethrough   =   0   'False
  620.          EndProperty
  621.          Height          =   255
  622.          Index           =   1
  623.          Left            =   -74700
  624.          TabIndex        =   130
  625.          Tag             =   "&H3&"
  626.          Top             =   1707
  627.          Width           =   1980
  628.       End
  629.       Begin VB.CheckBox Check6 
  630.          Caption         =   "cdlHelpCommand"
  631.          BeginProperty Font 
  632.             Name            =   "Times New Roman"
  633.             Size            =   9
  634.             Charset         =   0
  635.             Weight          =   400
  636.             Underline       =   0   'False
  637.             Italic          =   0   'False
  638.             Strikethrough   =   0   'False
  639.          EndProperty
  640.          Height          =   255
  641.          Index           =   0
  642.          Left            =   -74700
  643.          TabIndex        =   129
  644.          Tag             =   "&H102&"
  645.          Top             =   1350
  646.          Width           =   1980
  647.       End
  648.       Begin VB.CommandButton Command5 
  649.          Caption         =   "Show Dialog Box"
  650.          BeginProperty Font 
  651.             Name            =   "Times New Roman"
  652.             Size            =   12
  653.             Charset         =   0
  654.             Weight          =   700
  655.             Underline       =   0   'False
  656.             Italic          =   0   'False
  657.             Strikethrough   =   0   'False
  658.          EndProperty
  659.          Height          =   690
  660.          Left            =   -68460
  661.          TabIndex        =   126
  662.          Top             =   4740
  663.          Width           =   2400
  664.       End
  665.       Begin VB.TextBox ToPage 
  666.          BeginProperty Font 
  667.             Name            =   "Times New Roman"
  668.             Size            =   9
  669.             Charset         =   0
  670.             Weight          =   400
  671.             Underline       =   0   'False
  672.             Italic          =   0   'False
  673.             Strikethrough   =   0   'False
  674.          EndProperty
  675.          Height          =   345
  676.          Left            =   -67170
  677.          TabIndex        =   124
  678.          Top             =   3358
  679.          Width           =   690
  680.       End
  681.       Begin VB.TextBox Copies 
  682.          BeginProperty Font 
  683.             Name            =   "Times New Roman"
  684.             Size            =   9
  685.             Charset         =   0
  686.             Weight          =   400
  687.             Underline       =   0   'False
  688.             Italic          =   0   'False
  689.             Strikethrough   =   0   'False
  690.          EndProperty
  691.          Height          =   345
  692.          Left            =   -67170
  693.          TabIndex        =   123
  694.          Top             =   1988
  695.          Width           =   690
  696.       End
  697.       Begin VB.TextBox FromPage 
  698.          BeginProperty Font 
  699.             Name            =   "Times New Roman"
  700.             Size            =   9
  701.             Charset         =   0
  702.             Weight          =   400
  703.             Underline       =   0   'False
  704.             Italic          =   0   'False
  705.             Strikethrough   =   0   'False
  706.          EndProperty
  707.          Height          =   345
  708.          Left            =   -67170
  709.          TabIndex        =   119
  710.          Top             =   2730
  711.          Width           =   690
  712.       End
  713.       Begin VB.CheckBox Check5 
  714.          Caption         =   "cdlPDUseDevModeCopies"
  715.          BeginProperty Font 
  716.             Name            =   "Times New Roman"
  717.             Size            =   9
  718.             Charset         =   0
  719.             Weight          =   400
  720.             Underline       =   0   'False
  721.             Italic          =   0   'False
  722.             Strikethrough   =   0   'False
  723.          EndProperty
  724.          Height          =   315
  725.          Index           =   16
  726.          Left            =   -71625
  727.          TabIndex        =   117
  728.          Tag             =   "&H40000"
  729.          Top             =   4770
  730.          Width           =   2715
  731.       End
  732.       Begin VB.CheckBox Check5 
  733.          Caption         =   "cdlPDUseDevModeCopies"
  734.          BeginProperty Font 
  735.             Name            =   "Times New Roman"
  736.             Size            =   9
  737.             Charset         =   0
  738.             Weight          =   400
  739.             Underline       =   0   'False
  740.             Italic          =   0   'False
  741.             Strikethrough   =   0   'False
  742.          EndProperty
  743.          Height          =   315
  744.          Index           =   15
  745.          Left            =   -74520
  746.          TabIndex        =   116
  747.          Top             =   4770
  748.          Width           =   2775
  749.       End
  750.       Begin VB.CheckBox Check5 
  751.          Caption         =   "cdlPDSelection"
  752.          BeginProperty Font 
  753.             Name            =   "Times New Roman"
  754.             Size            =   9
  755.             Charset         =   0
  756.             Weight          =   400
  757.             Underline       =   0   'False
  758.             Italic          =   0   'False
  759.             Strikethrough   =   0   'False
  760.          EndProperty
  761.          Height          =   315
  762.          Index           =   14
  763.          Left            =   -71610
  764.          TabIndex        =   115
  765.          Tag             =   "&H1"
  766.          Top             =   4380
  767.          Width           =   2535
  768.       End
  769.       Begin VB.CheckBox Check5 
  770.          Caption         =   "cdlPDReturnIC"
  771.          BeginProperty Font 
  772.             Name            =   "Times New Roman"
  773.             Size            =   9
  774.             Charset         =   0
  775.             Weight          =   400
  776.             Underline       =   0   'False
  777.             Italic          =   0   'False
  778.             Strikethrough   =   0   'False
  779.          EndProperty
  780.          Height          =   315
  781.          Index           =   13
  782.          Left            =   -71610
  783.          TabIndex        =   114
  784.          Tag             =   "&H200&"
  785.          Top             =   3995
  786.          Width           =   1710
  787.       End
  788.       Begin VB.CheckBox Check5 
  789.          Caption         =   "cdlPDReturnDefault"
  790.          BeginProperty Font 
  791.             Name            =   "Times New Roman"
  792.             Size            =   9
  793.             Charset         =   0
  794.             Weight          =   400
  795.             Underline       =   0   'False
  796.             Italic          =   0   'False
  797.             Strikethrough   =   0   'False
  798.          EndProperty
  799.          Height          =   315
  800.          Index           =   12
  801.          Left            =   -71610
  802.          TabIndex        =   113
  803.          Tag             =   "&H400"
  804.          Top             =   3610
  805.          Width           =   2190
  806.       End
  807.       Begin VB.CheckBox Check5 
  808.          Caption         =   "cdlPDReturnDC"
  809.          BeginProperty Font 
  810.             Name            =   "Times New Roman"
  811.             Size            =   9
  812.             Charset         =   0
  813.             Weight          =   400
  814.             Underline       =   0   'False
  815.             Italic          =   0   'False
  816.             Strikethrough   =   0   'False
  817.          EndProperty
  818.          Height          =   315
  819.          Index           =   11
  820.          Left            =   -71610
  821.          TabIndex        =   112
  822.          Tag             =   "&H100"
  823.          Top             =   3225
  824.          Width           =   1875
  825.       End
  826.       Begin VB.CheckBox Check5 
  827.          Caption         =   "cdlPDPrintToFile"
  828.          BeginProperty Font 
  829.             Name            =   "Times New Roman"
  830.             Size            =   9
  831.             Charset         =   0
  832.             Weight          =   400
  833.             Underline       =   0   'False
  834.             Italic          =   0   'False
  835.             Strikethrough   =   0   'False
  836.          EndProperty
  837.          Height          =   315
  838.          Index           =   10
  839.          Left            =   -71610
  840.          TabIndex        =   111
  841.          Tag             =   "&H20"
  842.          Top             =   2840
  843.          Width           =   1935
  844.       End
  845.       Begin VB.CheckBox Check5 
  846.          Caption         =   "cdlPDPrintSetup"
  847.          BeginProperty Font 
  848.             Name            =   "Times New Roman"
  849.             Size            =   9
  850.             Charset         =   0
  851.             Weight          =   400
  852.             Underline       =   0   'False
  853.             Italic          =   0   'False
  854.             Strikethrough   =   0   'False
  855.          EndProperty
  856.          Height          =   315
  857.          Index           =   9
  858.          Left            =   -71610
  859.          TabIndex        =   110
  860.          Tag             =   "&H40"
  861.          Top             =   2455
  862.          Width           =   1815
  863.       End
  864.       Begin VB.CheckBox Check5 
  865.          Caption         =   "cdlPDPageNums"
  866.          BeginProperty Font 
  867.             Name            =   "Times New Roman"
  868.             Size            =   9
  869.             Charset         =   0
  870.             Weight          =   400
  871.             Underline       =   0   'False
  872.             Italic          =   0   'False
  873.             Strikethrough   =   0   'False
  874.          EndProperty
  875.          Height          =   315
  876.          Index           =   8
  877.          Left            =   -71610
  878.          TabIndex        =   109
  879.          Tag             =   "&H2"
  880.          Top             =   2070
  881.          Width           =   1890
  882.       End
  883.       Begin VB.CheckBox Check5 
  884.          Caption         =   "cdlPDNoWarning"
  885.          Height          =   315
  886.          Index           =   7
  887.          Left            =   -74520
  888.          TabIndex        =   108
  889.          Tag             =   "&H80"
  890.          Top             =   4770
  891.          Width           =   2535
  892.       End
  893.       Begin VB.CheckBox Check5 
  894.          Caption         =   "cdlPDNoSelection"
  895.          BeginProperty Font 
  896.             Name            =   "Times New Roman"
  897.             Size            =   9
  898.             Charset         =   0
  899.             Weight          =   400
  900.             Underline       =   0   'False
  901.             Italic          =   0   'False
  902.             Strikethrough   =   0   'False
  903.          EndProperty
  904.          Height          =   315
  905.          Index           =   6
  906.          Left            =   -74520
  907.          TabIndex        =   107
  908.          Tag             =   "&H4"
  909.          Top             =   4380
  910.          Width           =   2535
  911.       End
  912.       Begin VB.CheckBox Check5 
  913.          Caption         =   "cdlPDNoPageNums"
  914.          BeginProperty Font 
  915.             Name            =   "Times New Roman"
  916.             Size            =   9
  917.             Charset         =   0
  918.             Weight          =   400
  919.             Underline       =   0   'False
  920.             Italic          =   0   'False
  921.             Strikethrough   =   0   'False
  922.          EndProperty
  923.          Height          =   315
  924.          Index           =   5
  925.          Left            =   -74520
  926.          TabIndex        =   106
  927.          Tag             =   "&H8&"
  928.          Top             =   3995
  929.          Width           =   2190
  930.       End
  931.       Begin VB.CheckBox Check5 
  932.          Caption         =   "cdlPDHidePrintToFile"
  933.          BeginProperty Font 
  934.             Name            =   "Times New Roman"
  935.             Size            =   9
  936.             Charset         =   0
  937.             Weight          =   400
  938.             Underline       =   0   'False
  939.             Italic          =   0   'False
  940.             Strikethrough   =   0   'False
  941.          EndProperty
  942.          Height          =   315
  943.          Index           =   4
  944.          Left            =   -74520
  945.          TabIndex        =   105
  946.          Tag             =   "&H100000"
  947.          Top             =   3610
  948.          Width           =   2610
  949.       End
  950.       Begin VB.CheckBox Check5 
  951.          Caption         =   "cdlPDHelpButton"
  952.          BeginProperty Font 
  953.             Name            =   "Times New Roman"
  954.             Size            =   9
  955.             Charset         =   0
  956.             Weight          =   400
  957.             Underline       =   0   'False
  958.             Italic          =   0   'False
  959.             Strikethrough   =   0   'False
  960.          EndProperty
  961.          Height          =   315
  962.          Index           =   3
  963.          Left            =   -74520
  964.          TabIndex        =   104
  965.          Tag             =   "&H800"
  966.          Top             =   3225
  967.          Width           =   2535
  968.       End
  969.       Begin VB.CheckBox Check5 
  970.          Caption         =   "cdlPDDisablePrintToFile"
  971.          BeginProperty Font 
  972.             Name            =   "Times New Roman"
  973.             Size            =   9
  974.             Charset         =   0
  975.             Weight          =   400
  976.             Underline       =   0   'False
  977.             Italic          =   0   'False
  978.             Strikethrough   =   0   'False
  979.          EndProperty
  980.          Height          =   315
  981.          Index           =   2
  982.          Left            =   -74520
  983.          TabIndex        =   103
  984.          Tag             =   "&H80000"
  985.          Top             =   2840
  986.          Width           =   2505
  987.       End
  988.       Begin VB.CheckBox Check5 
  989.          Caption         =   "cdlPDCollate"
  990.          BeginProperty Font 
  991.             Name            =   "Times New Roman"
  992.             Size            =   9
  993.             Charset         =   0
  994.             Weight          =   400
  995.             Underline       =   0   'False
  996.             Italic          =   0   'False
  997.             Strikethrough   =   0   'False
  998.          EndProperty
  999.          Height          =   315
  1000.          Index           =   1
  1001.          Left            =   -74520
  1002.          TabIndex        =   102
  1003.          Tag             =   "&H10"
  1004.          Top             =   2455
  1005.          Width           =   1965
  1006.       End
  1007.       Begin VB.CheckBox Check5 
  1008.          Caption         =   "cdlPDAllPages"
  1009.          BeginProperty Font 
  1010.             Name            =   "Times New Roman"
  1011.             Size            =   9
  1012.             Charset         =   0
  1013.             Weight          =   400
  1014.             Underline       =   0   'False
  1015.             Italic          =   0   'False
  1016.             Strikethrough   =   0   'False
  1017.          EndProperty
  1018.          Height          =   315
  1019.          Index           =   0
  1020.          Left            =   -74520
  1021.          TabIndex        =   101
  1022.          Tag             =   "&H0"
  1023.          Top             =   2070
  1024.          Width           =   1950
  1025.       End
  1026.       Begin VB.Frame Frame3 
  1027.          Height          =   3675
  1028.          Left            =   -74790
  1029.          TabIndex        =   100
  1030.          Top             =   1695
  1031.          Width           =   6030
  1032.       End
  1033.       Begin VB.TextBox FSDefExt 
  1034.          BeginProperty Font 
  1035.             Name            =   "Times New Roman"
  1036.             Size            =   9
  1037.             Charset         =   0
  1038.             Weight          =   400
  1039.             Underline       =   0   'False
  1040.             Italic          =   0   'False
  1041.             Strikethrough   =   0   'False
  1042.          EndProperty
  1043.          Height          =   330
  1044.          Left            =   -68550
  1045.          TabIndex        =   92
  1046.          Top             =   1785
  1047.          Width           =   1020
  1048.       End
  1049.       Begin VB.TextBox FSInitialDir 
  1050.          BeginProperty Font 
  1051.             Name            =   "Times New Roman"
  1052.             Size            =   9
  1053.             Charset         =   0
  1054.             Weight          =   400
  1055.             Underline       =   0   'False
  1056.             Italic          =   0   'False
  1057.             Strikethrough   =   0   'False
  1058.          EndProperty
  1059.          Height          =   330
  1060.          Left            =   -68550
  1061.          TabIndex        =   91
  1062.          Top             =   4350
  1063.          Width           =   2100
  1064.       End
  1065.       Begin VB.TextBox FSFilterIdx 
  1066.          BeginProperty Font 
  1067.             Name            =   "Times New Roman"
  1068.             Size            =   9
  1069.             Charset         =   0
  1070.             Weight          =   400
  1071.             Underline       =   0   'False
  1072.             Italic          =   0   'False
  1073.             Strikethrough   =   0   'False
  1074.          EndProperty
  1075.          Height          =   330
  1076.          Left            =   -68550
  1077.          TabIndex        =   90
  1078.          Top             =   3465
  1079.          Width           =   480
  1080.       End
  1081.       Begin VB.TextBox FSFilter 
  1082.          BeginProperty Font 
  1083.             Name            =   "Times New Roman"
  1084.             Size            =   9
  1085.             Charset         =   0
  1086.             Weight          =   400
  1087.             Underline       =   0   'False
  1088.             Italic          =   0   'False
  1089.             Strikethrough   =   0   'False
  1090.          EndProperty
  1091.          Height          =   330
  1092.          Left            =   -68550
  1093.          TabIndex        =   89
  1094.          Top             =   2565
  1095.          Width           =   2040
  1096.       End
  1097.       Begin VB.CommandButton Command4 
  1098.          Caption         =   "Show Dialog Box"
  1099.          BeginProperty Font 
  1100.             Name            =   "Times New Roman"
  1101.             Size            =   12
  1102.             Charset         =   0
  1103.             Weight          =   700
  1104.             Underline       =   0   'False
  1105.             Italic          =   0   'False
  1106.             Strikethrough   =   0   'False
  1107.          EndProperty
  1108.          Height          =   690
  1109.          Left            =   -68550
  1110.          TabIndex        =   88
  1111.          Top             =   4965
  1112.          Width           =   2400
  1113.       End
  1114.       Begin VB.CheckBox Check4 
  1115.          Caption         =   "cdlOFNCreatePrompt"
  1116.          BeginProperty Font 
  1117.             Name            =   "Times New Roman"
  1118.             Size            =   9
  1119.             Charset         =   0
  1120.             Weight          =   400
  1121.             Underline       =   0   'False
  1122.             Italic          =   0   'False
  1123.             Strikethrough   =   0   'False
  1124.          EndProperty
  1125.          Height          =   285
  1126.          Index           =   1
  1127.          Left            =   -74640
  1128.          TabIndex        =   87
  1129.          Tag             =   "&H2000"
  1130.          Top             =   1995
  1131.          Width           =   2505
  1132.       End
  1133.       Begin VB.CheckBox Check4 
  1134.          Caption         =   "cdlOFNExplorer"
  1135.          BeginProperty Font 
  1136.             Name            =   "Times New Roman"
  1137.             Size            =   9
  1138.             Charset         =   0
  1139.             Weight          =   400
  1140.             Underline       =   0   'False
  1141.             Italic          =   0   'False
  1142.             Strikethrough   =   0   'False
  1143.          EndProperty
  1144.          Height          =   285
  1145.          Index           =   2
  1146.          Left            =   -74640
  1147.          TabIndex        =   86
  1148.          Tag             =   "&H80000"
  1149.          Top             =   2325
  1150.          Width           =   1965
  1151.       End
  1152.       Begin VB.CheckBox Check4 
  1153.          Caption         =   "cdlOFNExtensionDifferent"
  1154.          BeginProperty Font 
  1155.             Name            =   "Times New Roman"
  1156.             Size            =   9
  1157.             Charset         =   0
  1158.             Weight          =   400
  1159.             Underline       =   0   'False
  1160.             Italic          =   0   'False
  1161.             Strikethrough   =   0   'False
  1162.          EndProperty
  1163.          Height          =   285
  1164.          Index           =   3
  1165.          Left            =   -74640
  1166.          TabIndex        =   85
  1167.          Tag             =   "&H400"
  1168.          Top             =   2670
  1169.          Width           =   2805
  1170.       End
  1171.       Begin VB.CheckBox Check4 
  1172.          Caption         =   "cdlOFNFileMustExist"
  1173.          BeginProperty Font 
  1174.             Name            =   "Times New Roman"
  1175.             Size            =   9
  1176.             Charset         =   0
  1177.             Weight          =   400
  1178.             Underline       =   0   'False
  1179.             Italic          =   0   'False
  1180.             Strikethrough   =   0   'False
  1181.          EndProperty
  1182.          Height          =   285
  1183.          Index           =   4
  1184.          Left            =   -74640
  1185.          TabIndex        =   84
  1186.          Tag             =   "&H1000"
  1187.          Top             =   3000
  1188.          Width           =   2505
  1189.       End
  1190.       Begin VB.CheckBox Check4 
  1191.          Caption         =   "cdlOFNHelpButton"
  1192.          BeginProperty Font 
  1193.             Name            =   "Times New Roman"
  1194.             Size            =   9
  1195.             Charset         =   0
  1196.             Weight          =   400
  1197.             Underline       =   0   'False
  1198.             Italic          =   0   'False
  1199.             Strikethrough   =   0   'False
  1200.          EndProperty
  1201.          Height          =   285
  1202.          Index           =   5
  1203.          Left            =   -74640
  1204.          TabIndex        =   83
  1205.          Tag             =   "&H10"
  1206.          Top             =   3345
  1207.          Width           =   2370
  1208.       End
  1209.       Begin VB.CheckBox Check4 
  1210.          Caption         =   "cdlOFNHideReadOnly"
  1211.          BeginProperty Font 
  1212.             Name            =   "Times New Roman"
  1213.             Size            =   9
  1214.             Charset         =   0
  1215.             Weight          =   400
  1216.             Underline       =   0   'False
  1217.             Italic          =   0   'False
  1218.             Strikethrough   =   0   'False
  1219.          EndProperty
  1220.          Height          =   285
  1221.          Index           =   6
  1222.          Left            =   -74640
  1223.          TabIndex        =   82
  1224.          Tag             =   "&H4"
  1225.          Top             =   3675
  1226.          Width           =   2625
  1227.       End
  1228.       Begin VB.CheckBox Check4 
  1229.          Caption         =   "cdlOFNLongNames"
  1230.          BeginProperty Font 
  1231.             Name            =   "Times New Roman"
  1232.             Size            =   9
  1233.             Charset         =   0
  1234.             Weight          =   400
  1235.             Underline       =   0   'False
  1236.             Italic          =   0   'False
  1237.             Strikethrough   =   0   'False
  1238.          EndProperty
  1239.          Height          =   285
  1240.          Index           =   7
  1241.          Left            =   -74640
  1242.          TabIndex        =   81
  1243.          Tag             =   "&H200000"
  1244.          Top             =   4020
  1245.          Width           =   2295
  1246.       End
  1247.       Begin VB.CheckBox Check4 
  1248.          Caption         =   "cdlOFNNoChangeDir"
  1249.          BeginProperty Font 
  1250.             Name            =   "Times New Roman"
  1251.             Size            =   9
  1252.             Charset         =   0
  1253.             Weight          =   400
  1254.             Underline       =   0   'False
  1255.             Italic          =   0   'False
  1256.             Strikethrough   =   0   'False
  1257.          EndProperty
  1258.          Height          =   285
  1259.          Index           =   8
  1260.          Left            =   -71730
  1261.          TabIndex        =   80
  1262.          Tag             =   "&H8"
  1263.          Top             =   1650
  1264.          Width           =   2535
  1265.       End
  1266.       Begin VB.CheckBox Check4 
  1267.          Caption         =   "cdlOFNNoDereferenceLinks"
  1268.          BeginProperty Font 
  1269.             Name            =   "Times New Roman"
  1270.             Size            =   9
  1271.             Charset         =   0
  1272.             Weight          =   400
  1273.             Underline       =   0   'False
  1274.             Italic          =   0   'False
  1275.             Strikethrough   =   0   'False
  1276.          EndProperty
  1277.          Height          =   285
  1278.          Index           =   9
  1279.          Left            =   -71730
  1280.          TabIndex        =   79
  1281.          Tag             =   "&H100000"
  1282.          Top             =   1995
  1283.          Width           =   2850
  1284.       End
  1285.       Begin VB.CheckBox Check4 
  1286.          Caption         =   "cdlOFNNoReadOnlyReturn"
  1287.          BeginProperty Font 
  1288.             Name            =   "Times New Roman"
  1289.             Size            =   9
  1290.             Charset         =   0
  1291.             Weight          =   400
  1292.             Underline       =   0   'False
  1293.             Italic          =   0   'False
  1294.             Strikethrough   =   0   'False
  1295.          EndProperty
  1296.          Height          =   285
  1297.          Index           =   10
  1298.          Left            =   -71730
  1299.          TabIndex        =   78
  1300.          Tag             =   "&H8000"
  1301.          Top             =   2325
  1302.          Width           =   2775
  1303.       End
  1304.       Begin VB.CheckBox Check4 
  1305.          Caption         =   "cdlOFNNoValidate"
  1306.          BeginProperty Font 
  1307.             Name            =   "Times New Roman"
  1308.             Size            =   9
  1309.             Charset         =   0
  1310.             Weight          =   400
  1311.             Underline       =   0   'False
  1312.             Italic          =   0   'False
  1313.             Strikethrough   =   0   'False
  1314.          EndProperty
  1315.          Height          =   285
  1316.          Index           =   11
  1317.          Left            =   -71730
  1318.          TabIndex        =   77
  1319.          Tag             =   "&H100"
  1320.          Top             =   2670
  1321.          Width           =   2775
  1322.       End
  1323.       Begin VB.CheckBox Check4 
  1324.          Caption         =   "cdlOFNOverwritePrompt"
  1325.          BeginProperty Font 
  1326.             Name            =   "Times New Roman"
  1327.             Size            =   9
  1328.             Charset         =   0
  1329.             Weight          =   400
  1330.             Underline       =   0   'False
  1331.             Italic          =   0   'False
  1332.             Strikethrough   =   0   'False
  1333.          EndProperty
  1334.          Height          =   285
  1335.          Index           =   12
  1336.          Left            =   -71730
  1337.          TabIndex        =   76
  1338.          Tag             =   "&H2"
  1339.          Top             =   3000
  1340.          Width           =   2625
  1341.       End
  1342.       Begin VB.CheckBox Check4 
  1343.          Caption         =   "cdlOFNPathMustExist"
  1344.          BeginProperty Font 
  1345.             Name            =   "Times New Roman"
  1346.             Size            =   9
  1347.             Charset         =   0
  1348.             Weight          =   400
  1349.             Underline       =   0   'False
  1350.             Italic          =   0   'False
  1351.             Strikethrough   =   0   'False
  1352.          EndProperty
  1353.          Height          =   285
  1354.          Index           =   13
  1355.          Left            =   -71730
  1356.          TabIndex        =   75
  1357.          Tag             =   "&H800"
  1358.          Top             =   3345
  1359.          Width           =   2595
  1360.       End
  1361.       Begin VB.CheckBox Check4 
  1362.          Caption         =   "cdlOFNReadOnly"
  1363.          BeginProperty Font 
  1364.             Name            =   "Times New Roman"
  1365.             Size            =   9
  1366.             Charset         =   0
  1367.             Weight          =   400
  1368.             Underline       =   0   'False
  1369.             Italic          =   0   'False
  1370.             Strikethrough   =   0   'False
  1371.          EndProperty
  1372.          Height          =   285
  1373.          Index           =   14
  1374.          Left            =   -71730
  1375.          TabIndex        =   74
  1376.          Tag             =   "&H1"
  1377.          Top             =   3675
  1378.          Width           =   1965
  1379.       End
  1380.       Begin VB.CheckBox Check4 
  1381.          Caption         =   "cdlOFNShareAware"
  1382.          BeginProperty Font 
  1383.             Name            =   "Times New Roman"
  1384.             Size            =   9
  1385.             Charset         =   0
  1386.             Weight          =   400
  1387.             Underline       =   0   'False
  1388.             Italic          =   0   'False
  1389.             Strikethrough   =   0   'False
  1390.          EndProperty
  1391.          Height          =   285
  1392.          Index           =   15
  1393.          Left            =   -71730
  1394.          TabIndex        =   73
  1395.          Tag             =   "&H4000"
  1396.          Top             =   4020
  1397.          Width           =   2775
  1398.       End
  1399.       Begin VB.CheckBox Check4 
  1400.          Caption         =   "cdlOFNAllowMultiselect"
  1401.          BeginProperty Font 
  1402.             Name            =   "Times New Roman"
  1403.             Size            =   9
  1404.             Charset         =   0
  1405.             Weight          =   400
  1406.             Underline       =   0   'False
  1407.             Italic          =   0   'False
  1408.             Strikethrough   =   0   'False
  1409.          EndProperty
  1410.          Height          =   285
  1411.          Index           =   0
  1412.          Left            =   -74640
  1413.          TabIndex        =   72
  1414.          Tag             =   "&H200"
  1415.          Top             =   1650
  1416.          Width           =   2595
  1417.       End
  1418.       Begin VB.Frame Frame2 
  1419.          Height          =   3480
  1420.          Left            =   -74775
  1421.          TabIndex        =   71
  1422.          Top             =   1185
  1423.          Width           =   6030
  1424.       End
  1425.       Begin VB.CommandButton Command3 
  1426.          Caption         =   "Show Dialog Box"
  1427.          BeginProperty Font 
  1428.             Name            =   "Times New Roman"
  1429.             Size            =   12
  1430.             Charset         =   0
  1431.             Weight          =   700
  1432.             Underline       =   0   'False
  1433.             Italic          =   0   'False
  1434.             Strikethrough   =   0   'False
  1435.          EndProperty
  1436.          Height          =   690
  1437.          Left            =   -68460
  1438.          TabIndex        =   70
  1439.          Top             =   5025
  1440.          Width           =   2400
  1441.       End
  1442.       Begin VB.TextBox FName 
  1443.          BeginProperty Font 
  1444.             Name            =   "Times New Roman"
  1445.             Size            =   9
  1446.             Charset         =   0
  1447.             Weight          =   400
  1448.             Underline       =   0   'False
  1449.             Italic          =   0   'False
  1450.             Strikethrough   =   0   'False
  1451.          EndProperty
  1452.          Height          =   330
  1453.          Left            =   -73455
  1454.          TabIndex        =   69
  1455.          Top             =   5415
  1456.          Width           =   4455
  1457.       End
  1458.       Begin VB.TextBox Filter 
  1459.          BeginProperty Font 
  1460.             Name            =   "Times New Roman"
  1461.             Size            =   9
  1462.             Charset         =   0
  1463.             Weight          =   400
  1464.             Underline       =   0   'False
  1465.             Italic          =   0   'False
  1466.             Strikethrough   =   0   'False
  1467.          EndProperty
  1468.          Height          =   330
  1469.          Left            =   -68460
  1470.          TabIndex        =   67
  1471.          Top             =   2460
  1472.          Width           =   2040
  1473.       End
  1474.       Begin VB.TextBox FilterIdx 
  1475.          BeginProperty Font 
  1476.             Name            =   "Times New Roman"
  1477.             Size            =   9
  1478.             Charset         =   0
  1479.             Weight          =   400
  1480.             Underline       =   0   'False
  1481.             Italic          =   0   'False
  1482.             Strikethrough   =   0   'False
  1483.          EndProperty
  1484.          Height          =   330
  1485.          Left            =   -68460
  1486.          TabIndex        =   65
  1487.          Top             =   3360
  1488.          Width           =   480
  1489.       End
  1490.       Begin VB.TextBox InitialDir 
  1491.          BeginProperty Font 
  1492.             Name            =   "Times New Roman"
  1493.             Size            =   9
  1494.             Charset         =   0
  1495.             Weight          =   400
  1496.             Underline       =   0   'False
  1497.             Italic          =   0   'False
  1498.             Strikethrough   =   0   'False
  1499.          EndProperty
  1500.          Height          =   330
  1501.          Left            =   -68460
  1502.          TabIndex        =   63
  1503.          Top             =   4245
  1504.          Width           =   2100
  1505.       End
  1506.       Begin VB.TextBox DefExt 
  1507.          BeginProperty Font 
  1508.             Name            =   "Times New Roman"
  1509.             Size            =   9
  1510.             Charset         =   0
  1511.             Weight          =   400
  1512.             Underline       =   0   'False
  1513.             Italic          =   0   'False
  1514.             Strikethrough   =   0   'False
  1515.          EndProperty
  1516.          Height          =   330
  1517.          Left            =   -68460
  1518.          TabIndex        =   60
  1519.          Top             =   1680
  1520.          Width           =   1020
  1521.       End
  1522.       Begin VB.CheckBox Check3 
  1523.          Caption         =   "cdlOFNAllowMultiselect"
  1524.          BeginProperty Font 
  1525.             Name            =   "Times New Roman"
  1526.             Size            =   9
  1527.             Charset         =   0
  1528.             Weight          =   400
  1529.             Underline       =   0   'False
  1530.             Italic          =   0   'False
  1531.             Strikethrough   =   0   'False
  1532.          EndProperty
  1533.          Height          =   285
  1534.          Index           =   0
  1535.          Left            =   -74550
  1536.          TabIndex        =   58
  1537.          Tag             =   "&H200"
  1538.          Top             =   1530
  1539.          Width           =   2595
  1540.       End
  1541.       Begin VB.CheckBox Check3 
  1542.          Caption         =   "cdlOFNShareAware"
  1543.          BeginProperty Font 
  1544.             Name            =   "Times New Roman"
  1545.             Size            =   9
  1546.             Charset         =   0
  1547.             Weight          =   400
  1548.             Underline       =   0   'False
  1549.             Italic          =   0   'False
  1550.             Strikethrough   =   0   'False
  1551.          EndProperty
  1552.          Height          =   285
  1553.          Index           =   15
  1554.          Left            =   -71640
  1555.          TabIndex        =   57
  1556.          Tag             =   "&H4000"
  1557.          Top             =   3900
  1558.          Width           =   2775
  1559.       End
  1560.       Begin VB.CheckBox Check3 
  1561.          Caption         =   "cdlOFNReadOnly"
  1562.          BeginProperty Font 
  1563.             Name            =   "Times New Roman"
  1564.             Size            =   9
  1565.             Charset         =   0
  1566.             Weight          =   400
  1567.             Underline       =   0   'False
  1568.             Italic          =   0   'False
  1569.             Strikethrough   =   0   'False
  1570.          EndProperty
  1571.          Height          =   285
  1572.          Index           =   14
  1573.          Left            =   -71640
  1574.          TabIndex        =   56
  1575.          Tag             =   "&H1"
  1576.          Top             =   3555
  1577.          Width           =   1965
  1578.       End
  1579.       Begin VB.CheckBox Check3 
  1580.          Caption         =   "cdlOFNPathMustExist"
  1581.          BeginProperty Font 
  1582.             Name            =   "Times New Roman"
  1583.             Size            =   9
  1584.             Charset         =   0
  1585.             Weight          =   400
  1586.             Underline       =   0   'False
  1587.             Italic          =   0   'False
  1588.             Strikethrough   =   0   'False
  1589.          EndProperty
  1590.          Height          =   285
  1591.          Index           =   13
  1592.          Left            =   -71640
  1593.          TabIndex        =   55
  1594.          Tag             =   "&H800"
  1595.          Top             =   3225
  1596.          Width           =   2595
  1597.       End
  1598.       Begin VB.CheckBox Check3 
  1599.          Caption         =   "cdlOFNOverwritePrompt"
  1600.          BeginProperty Font 
  1601.             Name            =   "Times New Roman"
  1602.             Size            =   9
  1603.             Charset         =   0
  1604.             Weight          =   400
  1605.             Underline       =   0   'False
  1606.             Italic          =   0   'False
  1607.             Strikethrough   =   0   'False
  1608.          EndProperty
  1609.          Height          =   285
  1610.          Index           =   12
  1611.          Left            =   -71640
  1612.          TabIndex        =   54
  1613.          Tag             =   "&H2"
  1614.          Top             =   2880
  1615.          Width           =   2625
  1616.       End
  1617.       Begin VB.CheckBox Check3 
  1618.          Caption         =   "cdlOFNNoValidate"
  1619.          BeginProperty Font 
  1620.             Name            =   "Times New Roman"
  1621.             Size            =   9
  1622.             Charset         =   0
  1623.             Weight          =   400
  1624.             Underline       =   0   'False
  1625.             Italic          =   0   'False
  1626.             Strikethrough   =   0   'False
  1627.          EndProperty
  1628.          Height          =   285
  1629.          Index           =   11
  1630.          Left            =   -71640
  1631.          TabIndex        =   53
  1632.          Tag             =   "&H100"
  1633.          Top             =   2550
  1634.          Width           =   2775
  1635.       End
  1636.       Begin VB.CheckBox Check3 
  1637.          Caption         =   "cdlOFNNoReadOnlyReturn"
  1638.          BeginProperty Font 
  1639.             Name            =   "Times New Roman"
  1640.             Size            =   9
  1641.             Charset         =   0
  1642.             Weight          =   400
  1643.             Underline       =   0   'False
  1644.             Italic          =   0   'False
  1645.             Strikethrough   =   0   'False
  1646.          EndProperty
  1647.          Height          =   285
  1648.          Index           =   10
  1649.          Left            =   -71640
  1650.          TabIndex        =   52
  1651.          Tag             =   "&H8000"
  1652.          Top             =   2205
  1653.          Width           =   2775
  1654.       End
  1655.       Begin VB.CheckBox Check3 
  1656.          Caption         =   "cdlOFNNoDereferenceLinks"
  1657.          BeginProperty Font 
  1658.             Name            =   "Times New Roman"
  1659.             Size            =   9
  1660.             Charset         =   0
  1661.             Weight          =   400
  1662.             Underline       =   0   'False
  1663.             Italic          =   0   'False
  1664.             Strikethrough   =   0   'False
  1665.          EndProperty
  1666.          Height          =   285
  1667.          Index           =   9
  1668.          Left            =   -71640
  1669.          TabIndex        =   51
  1670.          Tag             =   "&H100000"
  1671.          Top             =   1875
  1672.          Width           =   2850
  1673.       End
  1674.       Begin VB.CheckBox Check3 
  1675.          Caption         =   "cdlOFNNoChangeDir"
  1676.          BeginProperty Font 
  1677.             Name            =   "Times New Roman"
  1678.             Size            =   9
  1679.             Charset         =   0
  1680.             Weight          =   400
  1681.             Underline       =   0   'False
  1682.             Italic          =   0   'False
  1683.             Strikethrough   =   0   'False
  1684.          EndProperty
  1685.          Height          =   285
  1686.          Index           =   8
  1687.          Left            =   -71640
  1688.          TabIndex        =   50
  1689.          Tag             =   "&H8"
  1690.          Top             =   1530
  1691.          Width           =   2535
  1692.       End
  1693.       Begin VB.CheckBox Check3 
  1694.          Caption         =   "cdlOFNLongNames"
  1695.          BeginProperty Font 
  1696.             Name            =   "Times New Roman"
  1697.             Size            =   9
  1698.             Charset         =   0
  1699.             Weight          =   400
  1700.             Underline       =   0   'False
  1701.             Italic          =   0   'False
  1702.             Strikethrough   =   0   'False
  1703.          EndProperty
  1704.          Height          =   285
  1705.          Index           =   7
  1706.          Left            =   -74550
  1707.          TabIndex        =   49
  1708.          Tag             =   "&H200000"
  1709.          Top             =   3900
  1710.          Width           =   2295
  1711.       End
  1712.       Begin VB.CheckBox Check3 
  1713.          Caption         =   "cdlOFNHideReadOnly"
  1714.          BeginProperty Font 
  1715.             Name            =   "Times New Roman"
  1716.             Size            =   9
  1717.             Charset         =   0
  1718.             Weight          =   400
  1719.             Underline       =   0   'False
  1720.             Italic          =   0   'False
  1721.             Strikethrough   =   0   'False
  1722.          EndProperty
  1723.          Height          =   285
  1724.          Index           =   6
  1725.          Left            =   -74550
  1726.          TabIndex        =   48
  1727.          Tag             =   "&H4"
  1728.          Top             =   3555
  1729.          Width           =   2625
  1730.       End
  1731.       Begin VB.CheckBox Check3 
  1732.          Caption         =   "cdlOFNHelpButton"
  1733.          BeginProperty Font 
  1734.             Name            =   "Times New Roman"
  1735.             Size            =   9
  1736.             Charset         =   0
  1737.             Weight          =   400
  1738.             Underline       =   0   'False
  1739.             Italic          =   0   'False
  1740.             Strikethrough   =   0   'False
  1741.          EndProperty
  1742.          Height          =   285
  1743.          Index           =   5
  1744.          Left            =   -74550
  1745.          TabIndex        =   47
  1746.          Tag             =   "&H10"
  1747.          Top             =   3225
  1748.          Width           =   2370
  1749.       End
  1750.       Begin VB.CheckBox Check3 
  1751.          Caption         =   "cdlOFNFileMustExist"
  1752.          BeginProperty Font 
  1753.             Name            =   "Times New Roman"
  1754.             Size            =   9
  1755.             Charset         =   0
  1756.             Weight          =   400
  1757.             Underline       =   0   'False
  1758.             Italic          =   0   'False
  1759.             Strikethrough   =   0   'False
  1760.          EndProperty
  1761.          Height          =   285
  1762.          Index           =   4
  1763.          Left            =   -74550
  1764.          TabIndex        =   46
  1765.          Tag             =   "&H1000"
  1766.          Top             =   2880
  1767.          Width           =   2505
  1768.       End
  1769.       Begin VB.CheckBox Check3 
  1770.          Caption         =   "cdlOFNExtensionDifferent"
  1771.          BeginProperty Font 
  1772.             Name            =   "Times New Roman"
  1773.             Size            =   9
  1774.             Charset         =   0
  1775.             Weight          =   400
  1776.             Underline       =   0   'False
  1777.             Italic          =   0   'False
  1778.             Strikethrough   =   0   'False
  1779.          EndProperty
  1780.          Height          =   285
  1781.          Index           =   3
  1782.          Left            =   -74550
  1783.          TabIndex        =   45
  1784.          Tag             =   "&H400"
  1785.          Top             =   2550
  1786.          Width           =   2805
  1787.       End
  1788.       Begin VB.CheckBox Check3 
  1789.          Caption         =   "cdlOFNExplorer"
  1790.          BeginProperty Font 
  1791.             Name            =   "Times New Roman"
  1792.             Size            =   9
  1793.             Charset         =   0
  1794.             Weight          =   400
  1795.             Underline       =   0   'False
  1796.             Italic          =   0   'False
  1797.             Strikethrough   =   0   'False
  1798.          EndProperty
  1799.          Height          =   285
  1800.          Index           =   2
  1801.          Left            =   -74550
  1802.          TabIndex        =   44
  1803.          Tag             =   "&H80000"
  1804.          Top             =   2205
  1805.          Width           =   1965
  1806.       End
  1807.       Begin VB.CheckBox Check3 
  1808.          Caption         =   "cdlOFNCreatePrompt"
  1809.          BeginProperty Font 
  1810.             Name            =   "Times New Roman"
  1811.             Size            =   9
  1812.             Charset         =   0
  1813.             Weight          =   400
  1814.             Underline       =   0   'False
  1815.             Italic          =   0   'False
  1816.             Strikethrough   =   0   'False
  1817.          EndProperty
  1818.          Height          =   285
  1819.          Index           =   1
  1820.          Left            =   -74550
  1821.          TabIndex        =   43
  1822.          Tag             =   "&H2000"
  1823.          Top             =   1875
  1824.          Width           =   2505
  1825.       End
  1826.       Begin VB.Frame Frame1 
  1827.          Height          =   3480
  1828.          Left            =   -74670
  1829.          TabIndex        =   42
  1830.          Top             =   1170
  1831.          Width           =   6030
  1832.       End
  1833.       Begin VB.TextBox HClrValue 
  1834.          BeginProperty Font 
  1835.             Name            =   "Times New Roman"
  1836.             Size            =   9
  1837.             Charset         =   0
  1838.             Weight          =   400
  1839.             Underline       =   0   'False
  1840.             Italic          =   0   'False
  1841.             Strikethrough   =   0   'False
  1842.          EndProperty
  1843.          Height          =   330
  1844.          Left            =   -68550
  1845.          TabIndex        =   39
  1846.          Top             =   2040
  1847.          Width           =   2160
  1848.       End
  1849.       Begin VB.TextBox DClrValue 
  1850.          BeginProperty Font 
  1851.             Name            =   "Times New Roman"
  1852.             Size            =   9
  1853.             Charset         =   0
  1854.             Weight          =   400
  1855.             Underline       =   0   'False
  1856.             Italic          =   0   'False
  1857.             Strikethrough   =   0   'False
  1858.          EndProperty
  1859.          Height          =   330
  1860.          Left            =   -68550
  1861.          TabIndex        =   38
  1862.          Top             =   1665
  1863.          Width           =   2145
  1864.       End
  1865.       Begin VB.CommandButton Command2 
  1866.          Caption         =   "Show Dialog Box"
  1867.          BeginProperty Font 
  1868.             Name            =   "Times New Roman"
  1869.             Size            =   12
  1870.             Charset         =   0
  1871.             Weight          =   700
  1872.             Underline       =   0   'False
  1873.             Italic          =   0   'False
  1874.             Strikethrough   =   0   'False
  1875.          EndProperty
  1876.          Height          =   690
  1877.          Left            =   -68670
  1878.          TabIndex        =   36
  1879.          Top             =   4635
  1880.          Width           =   2400
  1881.       End
  1882.       Begin VB.PictureBox Picture1 
  1883.          Height          =   2190
  1884.          Left            =   -74655
  1885.          ScaleHeight     =   2130
  1886.          ScaleWidth      =   5625
  1887.          TabIndex        =   35
  1888.          Top             =   3150
  1889.          Width           =   5685
  1890.       End
  1891.       Begin VB.CheckBox Check2 
  1892.          Caption         =   "cdCClFullOpen"
  1893.          BeginProperty Font 
  1894.             Name            =   "Times New Roman"
  1895.             Size            =   9
  1896.             Charset         =   0
  1897.             Weight          =   400
  1898.             Underline       =   0   'False
  1899.             Italic          =   0   'False
  1900.             Strikethrough   =   0   'False
  1901.          EndProperty
  1902.          Height          =   270
  1903.          Index           =   0
  1904.          Left            =   -74580
  1905.          TabIndex        =   34
  1906.          Tag             =   "&H2"
  1907.          Top             =   1230
  1908.          Width           =   2025
  1909.       End
  1910.       Begin VB.CheckBox Check2 
  1911.          Caption         =   "cdlCCRGBInit"
  1912.          BeginProperty Font 
  1913.             Name            =   "Times New Roman"
  1914.             Size            =   9
  1915.             Charset         =   0
  1916.             Weight          =   400
  1917.             Underline       =   0   'False
  1918.             Italic          =   0   'False
  1919.             Strikethrough   =   0   'False
  1920.          EndProperty
  1921.          Height          =   270
  1922.          Index           =   3
  1923.          Left            =   -74580
  1924.          TabIndex        =   33
  1925.          Tag             =   "&H1"
  1926.          Top             =   2385
  1927.          Width           =   2610
  1928.       End
  1929.       Begin VB.CheckBox Check2 
  1930.          Caption         =   "cdlCCPreventFullOpen"
  1931.          BeginProperty Font 
  1932.             Name            =   "Times New Roman"
  1933.             Size            =   9
  1934.             Charset         =   0
  1935.             Weight          =   400
  1936.             Underline       =   0   'False
  1937.             Italic          =   0   'False
  1938.             Strikethrough   =   0   'False
  1939.          EndProperty
  1940.          Height          =   270
  1941.          Index           =   2
  1942.          Left            =   -74580
  1943.          TabIndex        =   32
  1944.          Tag             =   "&H4"
  1945.          Top             =   1995
  1946.          Width           =   2595
  1947.       End
  1948.       Begin VB.CheckBox Check2 
  1949.          Caption         =   "CdlCCHelpButton"
  1950.          BeginProperty Font 
  1951.             Name            =   "Times New Roman"
  1952.             Size            =   9
  1953.             Charset         =   0
  1954.             Weight          =   400
  1955.             Underline       =   0   'False
  1956.             Italic          =   0   'False
  1957.             Strikethrough   =   0   'False
  1958.          EndProperty
  1959.          Height          =   270
  1960.          Index           =   1
  1961.          Left            =   -74580
  1962.          TabIndex        =   31
  1963.          Tag             =   "&H8"
  1964.          Top             =   1620
  1965.          Width           =   2025
  1966.       End
  1967.       Begin VB.CommandButton Command1 
  1968.          Caption         =   "Show Dialog Box"
  1969.          BeginProperty Font 
  1970.             Name            =   "Times New Roman"
  1971.             Size            =   12
  1972.             Charset         =   0
  1973.             Weight          =   700
  1974.             Underline       =   0   'False
  1975.             Italic          =   0   'False
  1976.             Strikethrough   =   0   'False
  1977.          EndProperty
  1978.          Height          =   690
  1979.          Left            =   6585
  1980.          TabIndex        =   29
  1981.          Top             =   4920
  1982.          Width           =   2400
  1983.       End
  1984.       Begin VB.CheckBox FStrike 
  1985.          Caption         =   "FontStrikethru"
  1986.          BeginProperty Font 
  1987.             Name            =   "Times New Roman"
  1988.             Size            =   9
  1989.             Charset         =   0
  1990.             Weight          =   400
  1991.             Underline       =   0   'False
  1992.             Italic          =   0   'False
  1993.             Strikethrough   =   0   'False
  1994.          EndProperty
  1995.          Height          =   285
  1996.          Left            =   5760
  1997.          TabIndex        =   27
  1998.          Top             =   3600
  1999.          Width           =   1905
  2000.       End
  2001.       Begin VB.CheckBox FULine 
  2002.          Caption         =   "FontUnderline"
  2003.          BeginProperty Font 
  2004.             Name            =   "Times New Roman"
  2005.             Size            =   9
  2006.             Charset         =   0
  2007.             Weight          =   400
  2008.             Underline       =   0   'False
  2009.             Italic          =   0   'False
  2010.             Strikethrough   =   0   'False
  2011.          EndProperty
  2012.          Height          =   285
  2013.          Left            =   5775
  2014.          TabIndex        =   26
  2015.          Top             =   3270
  2016.          Width           =   1695
  2017.       End
  2018.       Begin VB.CheckBox FItalic 
  2019.          Caption         =   "FontItalic"
  2020.          BeginProperty Font 
  2021.             Name            =   "Times New Roman"
  2022.             Size            =   9
  2023.             Charset         =   0
  2024.             Weight          =   400
  2025.             Underline       =   0   'False
  2026.             Italic          =   0   'False
  2027.             Strikethrough   =   0   'False
  2028.          EndProperty
  2029.          Height          =   285
  2030.          Left            =   5775
  2031.          TabIndex        =   25
  2032.          Top             =   2895
  2033.          Width           =   1410
  2034.       End
  2035.       Begin VB.CheckBox FBold 
  2036.          Caption         =   "FontBold"
  2037.          BeginProperty Font 
  2038.             Name            =   "Times New Roman"
  2039.             Size            =   9
  2040.             Charset         =   0
  2041.             Weight          =   400
  2042.             Underline       =   0   'False
  2043.             Italic          =   0   'False
  2044.             Strikethrough   =   0   'False
  2045.          EndProperty
  2046.          Height          =   285
  2047.          Left            =   5775
  2048.          TabIndex        =   24
  2049.          Top             =   2550
  2050.          Width           =   1665
  2051.       End
  2052.       Begin VB.TextBox Text2 
  2053.          BeginProperty Font 
  2054.             Name            =   "Times New Roman"
  2055.             Size            =   9
  2056.             Charset         =   0
  2057.             Weight          =   400
  2058.             Underline       =   0   'False
  2059.             Italic          =   0   'False
  2060.             Strikethrough   =   0   'False
  2061.          EndProperty
  2062.          Height          =   330
  2063.          Left            =   5730
  2064.          TabIndex        =   23
  2065.          Top             =   1815
  2066.          Width           =   2145
  2067.       End
  2068.       Begin VB.TextBox Text1 
  2069.          BeginProperty Font 
  2070.             Name            =   "Times New Roman"
  2071.             Size            =   9
  2072.             Charset         =   0
  2073.             Weight          =   400
  2074.             Underline       =   0   'False
  2075.             Italic          =   0   'False
  2076.             Strikethrough   =   0   'False
  2077.          EndProperty
  2078.          Height          =   330
  2079.          Left            =   5700
  2080.          TabIndex        =   21
  2081.          Top             =   1050
  2082.          Width           =   2145
  2083.       End
  2084.       Begin VB.CheckBox Check1 
  2085.          Caption         =   "cdlCFScreenFonts"
  2086.          BeginProperty Font 
  2087.             Name            =   "Times New Roman"
  2088.             Size            =   9
  2089.             Charset         =   0
  2090.             Weight          =   400
  2091.             Underline       =   0   'False
  2092.             Italic          =   0   'False
  2093.             Strikethrough   =   0   'False
  2094.          EndProperty
  2095.          Height          =   270
  2096.          Index           =   12
  2097.          Left            =   2955
  2098.          TabIndex        =   18
  2099.          Tag             =   "&H1"
  2100.          Top             =   1995
  2101.          Width           =   1995
  2102.       End
  2103.       Begin VB.CheckBox Check1 
  2104.          Caption         =   "cdlCFANSIOnly"
  2105.          BeginProperty Font 
  2106.             Name            =   "Times New Roman"
  2107.             Size            =   9
  2108.             Charset         =   0
  2109.             Weight          =   400
  2110.             Underline       =   0   'False
  2111.             Italic          =   0   'False
  2112.             Strikethrough   =   0   'False
  2113.          EndProperty
  2114.          Height          =   270
  2115.          Index           =   17
  2116.          Left            =   2955
  2117.          TabIndex        =   17
  2118.          Tag             =   "&H100000"
  2119.          Top             =   3810
  2120.          Width           =   1995
  2121.       End
  2122.       Begin VB.CheckBox Check1 
  2123.          Caption         =   "cdlCFNoStyleSel"
  2124.          BeginProperty Font 
  2125.             Name            =   "Times New Roman"
  2126.             Size            =   9
  2127.             Charset         =   0
  2128.             Weight          =   400
  2129.             Underline       =   0   'False
  2130.             Italic          =   0   'False
  2131.             Strikethrough   =   0   'False
  2132.          EndProperty
  2133.          Height          =   270
  2134.          Index           =   16
  2135.          Left            =   2955
  2136.          TabIndex        =   16
  2137.          Tag             =   "&H200000"
  2138.          Top             =   3435
  2139.          Width           =   2010
  2140.       End
  2141.       Begin VB.CheckBox Check1 
  2142.          Caption         =   "cdlCFNoFaceSel"
  2143.          BeginProperty Font 
  2144.             Name            =   "Times New Roman"
  2145.             Size            =   9
  2146.             Charset         =   0
  2147.             Weight          =   400
  2148.             Underline       =   0   'False
  2149.             Italic          =   0   'False
  2150.             Strikethrough   =   0   'False
  2151.          EndProperty
  2152.          Height          =   270
  2153.          Index           =   15
  2154.          Left            =   2955
  2155.          TabIndex        =   15
  2156.          Tag             =   "&H80000"
  2157.          Top             =   3075
  2158.          Width           =   2010
  2159.       End
  2160.       Begin VB.CheckBox Check1 
  2161.          Caption         =   "cdlCFWYSIWYG"
  2162.          BeginProperty Font 
  2163.             Name            =   "Times New Roman"
  2164.             Size            =   9
  2165.             Charset         =   0
  2166.             Weight          =   400
  2167.             Underline       =   0   'False
  2168.             Italic          =   0   'False
  2169.             Strikethrough   =   0   'False
  2170.          EndProperty
  2171.          Height          =   270
  2172.          Index           =   14
  2173.          Left            =   2955
  2174.          TabIndex        =   14
  2175.          Tag             =   "&H8000"
  2176.          Top             =   2715
  2177.          Width           =   1980
  2178.       End
  2179.       Begin VB.CheckBox Check1 
  2180.          Caption         =   "cdlCFTTOnly"
  2181.          BeginProperty Font 
  2182.             Name            =   "Times New Roman"
  2183.             Size            =   9
  2184.             Charset         =   0
  2185.             Weight          =   400
  2186.             Underline       =   0   'False
  2187.             Italic          =   0   'False
  2188.             Strikethrough   =   0   'False
  2189.          EndProperty
  2190.          Height          =   270
  2191.          Index           =   13
  2192.          Left            =   2955
  2193.          TabIndex        =   13
  2194.          Tag             =   "&H40000"
  2195.          Top             =   2355
  2196.          Width           =   1995
  2197.       End
  2198.       Begin VB.CheckBox Check1 
  2199.          Caption         =   "cdlCFScalableOnly"
  2200.          BeginProperty Font 
  2201.             Name            =   "Times New Roman"
  2202.             Size            =   9
  2203.             Charset         =   0
  2204.             Weight          =   400
  2205.             Underline       =   0   'False
  2206.             Italic          =   0   'False
  2207.             Strikethrough   =   0   'False
  2208.          EndProperty
  2209.          Height          =   270
  2210.          Index           =   11
  2211.          Left            =   2955
  2212.          TabIndex        =   12
  2213.          Tag             =   "&H20000"
  2214.          Top             =   1620
  2215.          Width           =   2010
  2216.       End
  2217.       Begin VB.CheckBox Check1 
  2218.          Caption         =   "cdlCFPrinterFonts"
  2219.          BeginProperty Font 
  2220.             Name            =   "Times New Roman"
  2221.             Size            =   9
  2222.             Charset         =   0
  2223.             Weight          =   400
  2224.             Underline       =   0   'False
  2225.             Italic          =   0   'False
  2226.             Strikethrough   =   0   'False
  2227.          EndProperty
  2228.          Height          =   270
  2229.          Index           =   10
  2230.          Left            =   2955
  2231.          TabIndex        =   11
  2232.          Tag             =   "&H2"
  2233.          Top             =   1260
  2234.          Width           =   1995
  2235.       End
  2236.       Begin VB.CheckBox Check1 
  2237.          Caption         =   "cdlCFNoVectorFonts"
  2238.          BeginProperty Font 
  2239.             Name            =   "Times New Roman"
  2240.             Size            =   9
  2241.             Charset         =   0
  2242.             Weight          =   400
  2243.             Underline       =   0   'False
  2244.             Italic          =   0   'False
  2245.             Strikethrough   =   0   'False
  2246.          EndProperty
  2247.          Height          =   270
  2248.          Index           =   9
  2249.          Left            =   2955
  2250.          TabIndex        =   10
  2251.          Tag             =   "&H800"
  2252.          Top             =   900
  2253.          Width           =   2355
  2254.       End
  2255.       Begin VB.CheckBox Check1 
  2256.          Caption         =   "cdlCFApply"
  2257.          BeginProperty Font 
  2258.             Name            =   "Times New Roman"
  2259.             Size            =   9
  2260.             Charset         =   0
  2261.             Weight          =   400
  2262.             Underline       =   0   'False
  2263.             Italic          =   0   'False
  2264.             Strikethrough   =   0   'False
  2265.          EndProperty
  2266.          Height          =   270
  2267.          Index           =   1
  2268.          Left            =   465
  2269.          TabIndex        =   9
  2270.          Tag             =   "&H200"
  2271.          Top             =   1260
  2272.          Width           =   1830
  2273.       End
  2274.       Begin VB.CheckBox Check1 
  2275.          Caption         =   "cdlCFNoSimulations"
  2276.          BeginProperty Font 
  2277.             Name            =   "Times New Roman"
  2278.             Size            =   9
  2279.             Charset         =   0
  2280.             Weight          =   400
  2281.             Underline       =   0   'False
  2282.             Italic          =   0   'False
  2283.             Strikethrough   =   0   'False
  2284.          EndProperty
  2285.          Height          =   270
  2286.          Index           =   8
  2287.          Left            =   465
  2288.          TabIndex        =   8
  2289.          Tag             =   "&H1000"
  2290.          Top             =   3810
  2291.          Width           =   2310
  2292.       End
  2293.       Begin VB.CheckBox Check1 
  2294.          Caption         =   "cdlCFLimitSize"
  2295.          BeginProperty Font 
  2296.             Name            =   "Times New Roman"
  2297.             Size            =   9
  2298.             Charset         =   0
  2299.             Weight          =   400
  2300.             Underline       =   0   'False
  2301.             Italic          =   0   'False
  2302.             Strikethrough   =   0   'False
  2303.          EndProperty
  2304.          Height          =   270
  2305.          Index           =   7
  2306.          Left            =   465
  2307.          TabIndex        =   7
  2308.          Tag             =   "&H2000"
  2309.          Top             =   3435
  2310.          Width           =   2190
  2311.       End
  2312.       Begin VB.CheckBox Check1 
  2313.          Caption         =   "cdlCFHelpButton"
  2314.          BeginProperty Font 
  2315.             Name            =   "Times New Roman"
  2316.             Size            =   9
  2317.             Charset         =   0
  2318.             Weight          =   400
  2319.             Underline       =   0   'False
  2320.             Italic          =   0   'False
  2321.             Strikethrough   =   0   'False
  2322.          EndProperty
  2323.          Height          =   270
  2324.          Index           =   6
  2325.          Left            =   465
  2326.          TabIndex        =   6
  2327.          Tag             =   "&H4"
  2328.          Top             =   3075
  2329.          Width           =   1920
  2330.       End
  2331.       Begin VB.CheckBox Check1 
  2332.          Caption         =   "cdlCFForceFontExist"
  2333.          BeginProperty Font 
  2334.             Name            =   "Times New Roman"
  2335.             Size            =   9
  2336.             Charset         =   0
  2337.             Weight          =   400
  2338.             Underline       =   0   'False
  2339.             Italic          =   0   'False
  2340.             Strikethrough   =   0   'False
  2341.          EndProperty
  2342.          Height          =   270
  2343.          Index           =   5
  2344.          Left            =   465
  2345.          TabIndex        =   5
  2346.          Tag             =   "&H10000"
  2347.          Top             =   2715
  2348.          Width           =   2295
  2349.       End
  2350.       Begin VB.CheckBox Check1 
  2351.          Caption         =   "cdlCFFixedPitchOnly"
  2352.          BeginProperty Font 
  2353.             Name            =   "Times New Roman"
  2354.             Size            =   9
  2355.             Charset         =   0
  2356.             Weight          =   400
  2357.             Underline       =   0   'False
  2358.             Italic          =   0   'False
  2359.             Strikethrough   =   0   'False
  2360.          EndProperty
  2361.          Height          =   270
  2362.          Index           =   4
  2363.          Left            =   465
  2364.          TabIndex        =   4
  2365.          Tag             =   "&H4000"
  2366.          Top             =   2355
  2367.          Width           =   2205
  2368.       End
  2369.       Begin VB.CheckBox Check1 
  2370.          Caption         =   "cdlCFEffects"
  2371.          BeginProperty Font 
  2372.             Name            =   "Times New Roman"
  2373.             Size            =   9
  2374.             Charset         =   0
  2375.             Weight          =   400
  2376.             Underline       =   0   'False
  2377.             Italic          =   0   'False
  2378.             Strikethrough   =   0   'False
  2379.          EndProperty
  2380.          Height          =   270
  2381.          Index           =   3
  2382.          Left            =   465
  2383.          TabIndex        =   3
  2384.          Tag             =   "&H100"
  2385.          Top             =   1995
  2386.          Width           =   1710
  2387.       End
  2388.       Begin VB.CheckBox Check1 
  2389.          Caption         =   "cdlCFBoth"
  2390.          BeginProperty Font 
  2391.             Name            =   "Times New Roman"
  2392.             Size            =   9
  2393.             Charset         =   0
  2394.             Weight          =   400
  2395.             Underline       =   0   'False
  2396.             Italic          =   0   'False
  2397.             Strikethrough   =   0   'False
  2398.          EndProperty
  2399.          Height          =   270
  2400.          Index           =   2
  2401.          Left            =   465
  2402.          TabIndex        =   2
  2403.          Tag             =   "&H3"
  2404.          Top             =   1620
  2405.          Width           =   1320
  2406.       End
  2407.       Begin VB.CheckBox Check1 
  2408.          Caption         =   "cdlCFANSIOnly"
  2409.          BeginProperty Font 
  2410.             Name            =   "Times New Roman"
  2411.             Size            =   9
  2412.             Charset         =   0
  2413.             Weight          =   400
  2414.             Underline       =   0   'False
  2415.             Italic          =   0   'False
  2416.             Strikethrough   =   0   'False
  2417.          EndProperty
  2418.          Height          =   270
  2419.          Index           =   0
  2420.          Left            =   465
  2421.          TabIndex        =   1
  2422.          Tag             =   "&H400"
  2423.          Top             =   900
  2424.          Width           =   2025
  2425.       End
  2426.       Begin VB.Frame Frame4 
  2427.          Height          =   2745
  2428.          Left            =   -74820
  2429.          TabIndex        =   136
  2430.          Top             =   990
  2431.          Width           =   5055
  2432.       End
  2433.       Begin VB.Frame Frame5 
  2434.          Height          =   1905
  2435.          Left            =   -74745
  2436.          TabIndex        =   28
  2437.          Top             =   1050
  2438.          Width           =   2910
  2439.       End
  2440.       Begin VB.Frame Frame6 
  2441.          Height          =   3705
  2442.          Left            =   330
  2443.          TabIndex        =   30
  2444.          Top             =   600
  2445.          Width           =   5130
  2446.       End
  2447.       Begin VB.Label Sample 
  2448.          Alignment       =   2  'Center
  2449.          BorderStyle     =   1  'Fixed Single
  2450.          Caption         =   "Sample Text"
  2451.          Height          =   870
  2452.          Left            =   330
  2453.          TabIndex        =   148
  2454.          Top             =   4635
  2455.          Width           =   5130
  2456.       End
  2457.       Begin VB.Label Label20 
  2458.          Caption         =   "Help Key"
  2459.          BeginProperty Font 
  2460.             Name            =   "Times New Roman"
  2461.             Size            =   9
  2462.             Charset         =   0
  2463.             Weight          =   400
  2464.             Underline       =   0   'False
  2465.             Italic          =   0   'False
  2466.             Strikethrough   =   0   'False
  2467.          EndProperty
  2468.          Height          =   300
  2469.          Left            =   -69660
  2470.          TabIndex        =   145
  2471.          Top             =   3120
  2472.          Width           =   1305
  2473.       End
  2474.       Begin VB.Label Label19 
  2475.          Caption         =   "Help ContextID"
  2476.          BeginProperty Font 
  2477.             Name            =   "Times New Roman"
  2478.             Size            =   9
  2479.             Charset         =   0
  2480.             Weight          =   400
  2481.             Underline       =   0   'False
  2482.             Italic          =   0   'False
  2483.             Strikethrough   =   0   'False
  2484.          EndProperty
  2485.          Height          =   300
  2486.          Left            =   -69660
  2487.          TabIndex        =   144
  2488.          Top             =   2175
  2489.          Width           =   1815
  2490.       End
  2491.       Begin VB.Label Label18 
  2492.          Caption         =   "Help File"
  2493.          BeginProperty Font 
  2494.             Name            =   "Times New Roman"
  2495.             Size            =   9
  2496.             Charset         =   0
  2497.             Weight          =   400
  2498.             Underline       =   0   'False
  2499.             Italic          =   0   'False
  2500.             Strikethrough   =   0   'False
  2501.          EndProperty
  2502.          Height          =   300
  2503.          Left            =   -69660
  2504.          TabIndex        =   142
  2505.          Top             =   1230
  2506.          Width           =   1305
  2507.       End
  2508.       Begin VB.Label FSFName 
  2509.          BackColor       =   &H00FFFFFF&
  2510.          BorderStyle     =   1  'Fixed Single
  2511.          BeginProperty Font 
  2512.             Name            =   "Times New Roman"
  2513.             Size            =   9
  2514.             Charset         =   0
  2515.             Weight          =   400
  2516.             Underline       =   0   'False
  2517.             Italic          =   0   'False
  2518.             Strikethrough   =   0   'False
  2519.          EndProperty
  2520.          Height          =   330
  2521.          Left            =   -73575
  2522.          TabIndex        =   128
  2523.          Top             =   5310
  2524.          Width           =   4440
  2525.       End
  2526.       Begin VB.Label FSTitle 
  2527.          BackColor       =   &H00FFFFFF&
  2528.          BorderStyle     =   1  'Fixed Single
  2529.          BeginProperty Font 
  2530.             Name            =   "Times New Roman"
  2531.             Size            =   9
  2532.             Charset         =   0
  2533.             Weight          =   400
  2534.             Underline       =   0   'False
  2535.             Italic          =   0   'False
  2536.             Strikethrough   =   0   'False
  2537.          EndProperty
  2538.          Height          =   330
  2539.          Left            =   -73590
  2540.          TabIndex        =   127
  2541.          Top             =   4845
  2542.          Width           =   4440
  2543.       End
  2544.       Begin VB.Label PDevice 
  2545.          BackColor       =   &H00FFFFFF&
  2546.          BorderStyle     =   1  'Fixed Single
  2547.          BeginProperty Font 
  2548.             Name            =   "Times New Roman"
  2549.             Size            =   9
  2550.             Charset         =   0
  2551.             Weight          =   400
  2552.             Underline       =   0   'False
  2553.             Italic          =   0   'False
  2554.             Strikethrough   =   0   'False
  2555.          EndProperty
  2556.          Height          =   375
  2557.          Left            =   -67170
  2558.          TabIndex        =   125
  2559.          Top             =   4005
  2560.          Width           =   1065
  2561.       End
  2562.       Begin VB.Label HDCLabel 
  2563.          Caption         =   "hDC"
  2564.          BeginProperty Font 
  2565.             Name            =   "Times New Roman"
  2566.             Size            =   9
  2567.             Charset         =   0
  2568.             Weight          =   400
  2569.             Underline       =   0   'False
  2570.             Italic          =   0   'False
  2571.             Strikethrough   =   0   'False
  2572.          EndProperty
  2573.          Height          =   345
  2574.          Left            =   -68355
  2575.          TabIndex        =   122
  2576.          Top             =   4020
  2577.          Width           =   630
  2578.       End
  2579.       Begin VB.Label PageToLabel 
  2580.          Caption         =   "ToPage"
  2581.          BeginProperty Font 
  2582.             Name            =   "Times New Roman"
  2583.             Size            =   9
  2584.             Charset         =   0
  2585.             Weight          =   400
  2586.             Underline       =   0   'False
  2587.             Italic          =   0   'False
  2588.             Strikethrough   =   0   'False
  2589.          EndProperty
  2590.          Height          =   270
  2591.          Left            =   -68355
  2592.          TabIndex        =   121
  2593.          Top             =   3395
  2594.          Width           =   915
  2595.       End
  2596.       Begin VB.Label CopiesLabel 
  2597.          Caption         =   "Copies"
  2598.          BeginProperty Font 
  2599.             Name            =   "Times New Roman"
  2600.             Size            =   9
  2601.             Charset         =   0
  2602.             Weight          =   400
  2603.             Underline       =   0   'False
  2604.             Italic          =   0   'False
  2605.             Strikethrough   =   0   'False
  2606.          EndProperty
  2607.          Height          =   300
  2608.          Left            =   -68355
  2609.          TabIndex        =   120
  2610.          Top             =   2010
  2611.          Width           =   960
  2612.       End
  2613.       Begin VB.Label PageFromLabel 
  2614.          Caption         =   "FromPage"
  2615.          BeginProperty Font 
  2616.             Name            =   "Times New Roman"
  2617.             Size            =   9
  2618.             Charset         =   0
  2619.             Weight          =   400
  2620.             Underline       =   0   'False
  2621.             Italic          =   0   'False
  2622.             Strikethrough   =   0   'False
  2623.          EndProperty
  2624.          Height          =   345
  2625.          Left            =   -68355
  2626.          TabIndex        =   118
  2627.          Top             =   2730
  2628.          Width           =   1050
  2629.       End
  2630.       Begin VB.Label FTitle 
  2631.          BackColor       =   &H00FFFFFF&
  2632.          BorderStyle     =   1  'Fixed Single
  2633.          BeginProperty Font 
  2634.             Name            =   "Times New Roman"
  2635.             Size            =   9
  2636.             Charset         =   0
  2637.             Weight          =   400
  2638.             Underline       =   0   'False
  2639.             Italic          =   0   'False
  2640.             Strikethrough   =   0   'False
  2641.          EndProperty
  2642.          Height          =   330
  2643.          Left            =   -73455
  2644.          TabIndex        =   99
  2645.          Top             =   4905
  2646.          Width           =   4440
  2647.       End
  2648.       Begin VB.Label Label17 
  2649.          Caption         =   "DefaultExt"
  2650.          BeginProperty Font 
  2651.             Name            =   "Times New Roman"
  2652.             Size            =   9
  2653.             Charset         =   0
  2654.             Weight          =   400
  2655.             Underline       =   0   'False
  2656.             Italic          =   0   'False
  2657.             Strikethrough   =   0   'False
  2658.          EndProperty
  2659.          Height          =   225
  2660.          Left            =   -68550
  2661.          TabIndex        =   98
  2662.          Top             =   1500
  2663.          Width           =   1125
  2664.       End
  2665.       Begin VB.Label Label16 
  2666.          Caption         =   "FileTitle"
  2667.          BeginProperty Font 
  2668.             Name            =   "Times New Roman"
  2669.             Size            =   9
  2670.             Charset         =   0
  2671.             Weight          =   400
  2672.             Underline       =   0   'False
  2673.             Italic          =   0   'False
  2674.             Strikethrough   =   0   'False
  2675.          EndProperty
  2676.          Height          =   255
  2677.          Left            =   -74775
  2678.          TabIndex        =   97
  2679.          Top             =   4845
  2680.          Width           =   1155
  2681.       End
  2682.       Begin VB.Label Label15 
  2683.          Caption         =   "Filter"
  2684.          BeginProperty Font 
  2685.             Name            =   "Times New Roman"
  2686.             Size            =   9
  2687.             Charset         =   0
  2688.             Weight          =   400
  2689.             Underline       =   0   'False
  2690.             Italic          =   0   'False
  2691.             Strikethrough   =   0   'False
  2692.          EndProperty
  2693.          Height          =   240
  2694.          Left            =   -68550
  2695.          TabIndex        =   96
  2696.          Top             =   2295
  2697.          Width           =   720
  2698.       End
  2699.       Begin VB.Label Label14 
  2700.          Caption         =   "FilterIndex"
  2701.          BeginProperty Font 
  2702.             Name            =   "Times New Roman"
  2703.             Size            =   9
  2704.             Charset         =   0
  2705.             Weight          =   400
  2706.             Underline       =   0   'False
  2707.             Italic          =   0   'False
  2708.             Strikethrough   =   0   'False
  2709.          EndProperty
  2710.          Height          =   240
  2711.          Left            =   -68550
  2712.          TabIndex        =   95
  2713.          Top             =   3165
  2714.          Width           =   1155
  2715.       End
  2716.       Begin VB.Label Label13 
  2717.          Caption         =   "InitDir"
  2718.          BeginProperty Font 
  2719.             Name            =   "Times New Roman"
  2720.             Size            =   9
  2721.             Charset         =   0
  2722.             Weight          =   400
  2723.             Underline       =   0   'False
  2724.             Italic          =   0   'False
  2725.             Strikethrough   =   0   'False
  2726.          EndProperty
  2727.          Height          =   240
  2728.          Left            =   -68550
  2729.          TabIndex        =   94
  2730.          Top             =   4050
  2731.          Width           =   675
  2732.       End
  2733.       Begin VB.Label Label12 
  2734.          Caption         =   "FileName"
  2735.          BeginProperty Font 
  2736.             Name            =   "Times New Roman"
  2737.             Size            =   9
  2738.             Charset         =   0
  2739.             Weight          =   400
  2740.             Underline       =   0   'False
  2741.             Italic          =   0   'False
  2742.             Strikethrough   =   0   'False
  2743.          EndProperty
  2744.          Height          =   315
  2745.          Left            =   -74775
  2746.          TabIndex        =   93
  2747.          Top             =   5340
  2748.          Width           =   1155
  2749.       End
  2750.       Begin VB.Label Label11 
  2751.          Caption         =   "FileName"
  2752.          BeginProperty Font 
  2753.             Name            =   "Times New Roman"
  2754.             Size            =   9
  2755.             Charset         =   0
  2756.             Weight          =   400
  2757.             Underline       =   0   'False
  2758.             Italic          =   0   'False
  2759.             Strikethrough   =   0   'False
  2760.          EndProperty
  2761.          Height          =   315
  2762.          Left            =   -74655
  2763.          TabIndex        =   68
  2764.          Top             =   5415
  2765.          Width           =   1155
  2766.       End
  2767.       Begin VB.Label Label10 
  2768.          Caption         =   "InitDir"
  2769.          BeginProperty Font 
  2770.             Name            =   "Times New Roman"
  2771.             Size            =   9
  2772.             Charset         =   0
  2773.             Weight          =   400
  2774.             Underline       =   0   'False
  2775.             Italic          =   0   'False
  2776.             Strikethrough   =   0   'False
  2777.          EndProperty
  2778.          Height          =   240
  2779.          Left            =   -68460
  2780.          TabIndex        =   66
  2781.          Top             =   3945
  2782.          Width           =   675
  2783.       End
  2784.       Begin VB.Label Label9 
  2785.          Caption         =   "FilterIndex"
  2786.          BeginProperty Font 
  2787.             Name            =   "Times New Roman"
  2788.             Size            =   9
  2789.             Charset         =   0
  2790.             Weight          =   400
  2791.             Underline       =   0   'False
  2792.             Italic          =   0   'False
  2793.             Strikethrough   =   0   'False
  2794.          EndProperty
  2795.          Height          =   240
  2796.          Left            =   -68460
  2797.          TabIndex        =   64
  2798.          Top             =   3060
  2799.          Width           =   1155
  2800.       End
  2801.       Begin VB.Label Label8 
  2802.          Caption         =   "Filter"
  2803.          BeginProperty Font 
  2804.             Name            =   "Times New Roman"
  2805.             Size            =   9
  2806.             Charset         =   0
  2807.             Weight          =   400
  2808.             Underline       =   0   'False
  2809.             Italic          =   0   'False
  2810.             Strikethrough   =   0   'False
  2811.          EndProperty
  2812.          Height          =   240
  2813.          Left            =   -68460
  2814.          TabIndex        =   62
  2815.          Top             =   2190
  2816.          Width           =   720
  2817.       End
  2818.       Begin VB.Label Label7 
  2819.          Caption         =   "FileTitle"
  2820.          BeginProperty Font 
  2821.             Name            =   "Times New Roman"
  2822.             Size            =   9
  2823.             Charset         =   0
  2824.             Weight          =   400
  2825.             Underline       =   0   'False
  2826.             Italic          =   0   'False
  2827.             Strikethrough   =   0   'False
  2828.          EndProperty
  2829.          Height          =   255
  2830.          Left            =   -74655
  2831.          TabIndex        =   61
  2832.          Top             =   4920
  2833.          Width           =   1155
  2834.       End
  2835.       Begin VB.Label Label6 
  2836.          Caption         =   "DefaultExt"
  2837.          BeginProperty Font 
  2838.             Name            =   "Times New Roman"
  2839.             Size            =   9
  2840.             Charset         =   0
  2841.             Weight          =   400
  2842.             Underline       =   0   'False
  2843.             Italic          =   0   'False
  2844.             Strikethrough   =   0   'False
  2845.          EndProperty
  2846.          Height          =   225
  2847.          Left            =   -68460
  2848.          TabIndex        =   59
  2849.          Top             =   1395
  2850.          Width           =   1125
  2851.       End
  2852.       Begin VB.Label Label5 
  2853.          Caption         =   "(Hex)"
  2854.          BeginProperty Font 
  2855.             Name            =   "Times New Roman"
  2856.             Size            =   8.25
  2857.             Charset         =   0
  2858.             Weight          =   400
  2859.             Underline       =   0   'False
  2860.             Italic          =   0   'False
  2861.             Strikethrough   =   0   'False
  2862.          EndProperty
  2863.          Height          =   270
  2864.          Left            =   -69195
  2865.          TabIndex        =   41
  2866.          Top             =   2085
  2867.          Width           =   555
  2868.       End
  2869.       Begin VB.Label Label4 
  2870.          Caption         =   "(Decimal)"
  2871.          BeginProperty Font 
  2872.             Name            =   "Times New Roman"
  2873.             Size            =   8.25
  2874.             Charset         =   0
  2875.             Weight          =   400
  2876.             Underline       =   0   'False
  2877.             Italic          =   0   'False
  2878.             Strikethrough   =   0   'False
  2879.          EndProperty
  2880.          Height          =   270
  2881.          Left            =   -69540
  2882.          TabIndex        =   40
  2883.          Top             =   1695
  2884.          Width           =   915
  2885.       End
  2886.       Begin VB.Label Label3 
  2887.          Caption         =   "Color Value"
  2888.          BeginProperty Font 
  2889.             Name            =   "Times New Roman"
  2890.             Size            =   9
  2891.             Charset         =   0
  2892.             Weight          =   400
  2893.             Underline       =   0   'False
  2894.             Italic          =   0   'False
  2895.             Strikethrough   =   0   'False
  2896.          EndProperty
  2897.          Height          =   285
  2898.          Left            =   -68565
  2899.          TabIndex        =   37
  2900.          Top             =   1335
  2901.          Width           =   1365
  2902.       End
  2903.       Begin VB.Label Label2 
  2904.          Caption         =   "Font Size"
  2905.          BeginProperty Font 
  2906.             Name            =   "Times New Roman"
  2907.             Size            =   9
  2908.             Charset         =   0
  2909.             Weight          =   400
  2910.             Underline       =   0   'False
  2911.             Italic          =   0   'False
  2912.             Strikethrough   =   0   'False
  2913.          EndProperty
  2914.          Height          =   285
  2915.          Left            =   5730
  2916.          TabIndex        =   22
  2917.          Top             =   1515
  2918.          Width           =   1245
  2919.       End
  2920.       Begin VB.Label Label1 
  2921.          Caption         =   "Font Name"
  2922.          BeginProperty Font 
  2923.             Name            =   "Times New Roman"
  2924.             Size            =   9
  2925.             Charset         =   0
  2926.             Weight          =   400
  2927.             Underline       =   0   'False
  2928.             Italic          =   0   'False
  2929.             Strikethrough   =   0   'False
  2930.          EndProperty
  2931.          Height          =   225
  2932.          Left            =   5700
  2933.          TabIndex        =   20
  2934.          Top             =   765
  2935.          Width           =   1695
  2936.       End
  2937.    End
  2938.    Begin MSComDlg.CommonDialog CommonDialog1 
  2939.       Left            =   90
  2940.       Top             =   75
  2941.       _ExtentX        =   847
  2942.       _ExtentY        =   847
  2943.       _Version        =   327680
  2944.       FontSize        =   1.17491e-38
  2945.    End
  2946. Attribute VB_Name = "Form1"
  2947. Attribute VB_GlobalNameSpace = False
  2948. Attribute VB_Creatable = False
  2949. Attribute VB_PredeclaredId = True
  2950. Attribute VB_Exposed = False
  2951. Option Explicit
  2952. Private Sub Command1_Click()
  2953. Dim CDFlags, i As Long
  2954. On Error GoTo FontError
  2955.     CDFlags = 0
  2956.     For i = 0 To 17
  2957.         CDFlags = CDFlags + Check1(i).Value * Val(Check1(i).Tag)
  2958.     Next
  2959.     CommonDialog1.Flags = CDFlags
  2960.         
  2961.     If FBold.Value Then CommonDialog1.FontBold = True
  2962.     If FItalic.Value Then CommonDialog1.FontItalic = True
  2963.     If FULine.Value Then CommonDialog1.FontUnderline = True
  2964.     If FStrike.Value Then CommonDialog1.FontStrikethru = True
  2965.     CommonDialog1.FontName = Trim(Text1.Text)
  2966.     CommonDialog1.FontSize = Val(Trim(Text2.Text))
  2967.     CommonDialog1.CancelError = True
  2968.     CommonDialog1.ShowFont
  2969.     Sample.ForeColor = CommonDialog1.Color
  2970.     Sample.FontName = CommonDialog1.FontName
  2971.     Sample.FontSize = CommonDialog1.FontSize
  2972.     Sample.FontItalic = CommonDialog1.FontItalic
  2973.     Sample.FontBold = CommonDialog1.FontBold
  2974.     Sample.FontUnderline = CommonDialog1.FontUnderline
  2975.     If CommonDialog1.FontName = "" Then
  2976.         Text1.Text = "not specified"
  2977.     Else
  2978.         Text1.Text = CommonDialog1.FontName
  2979.     End If
  2980.     If CommonDialog1.FontSize = 0 Then
  2981.         Text2.Text = "not specified"
  2982.     Else
  2983.         Text2.Text = CommonDialog1.FontSize
  2984.     End If
  2985.     If CommonDialog1.FontBold Then FBold.Value = 1
  2986.     If CommonDialog1.FontItalic Then FItalic.Value = 1
  2987.     If CommonDialog1.FontUnderline Then FULine.Value = 1
  2988.     If CommonDialog1.FontStrikethru Then FStrike.Value = 1
  2989.     Exit Sub
  2990. FontError:
  2991.     If Err.Number = 32755 Then
  2992.         MsgBox "Operation aborted by the user"
  2993.     ElseIf Err.Number = 24574 Then
  2994.         MsgBox "Please check one of the following flags: " & Chr$(10) & "cdlCFScreenFonts" & Chr$(10) & "cdlCFPrinterFonts" & Chr$(13) & "cdlCFBoth"
  2995.     Else
  2996.         MsgBox "Font or size property not specified "
  2997.     End If
  2998. End Sub
  2999. Private Sub Command2_Click()
  3000. Dim CDFlags, i As Long
  3001. On Error GoTo ColorError
  3002.     CDFlags = 0
  3003.     For i = 0 To 3
  3004.         CDFlags = CDFlags + Check2(i).Value * Val(Check2(i).Tag)
  3005.     Next
  3006.     CommonDialog1.Flags = CDFlags
  3007.     If Val(DClrValue.Text) <> 0 Then CommonDialog1.Color = Val(DClrValue.Text)
  3008.     If Val(HClrValue.Text) <> 0 Then CommonDialog1.Color = Val(HClrValue.Text)
  3009.     CommonDialog1.CancelError = True
  3010.     CommonDialog1.ShowColor
  3011.     Picture1.BackColor = CommonDialog1.Color
  3012.     DClrValue.Text = CommonDialog1.Color
  3013.     HClrValue.Text = Hex$(CommonDialog1.Color)
  3014.     Exit Sub
  3015. ColorError:
  3016.     If Err.Number = 32755 Then
  3017.         MsgBox "Operation aborted by the user"
  3018.         Picture1.BackColor = RGB(0, 0, 0)
  3019.     Else
  3020.         MsgBox "An error occured"
  3021.     End If
  3022. End Sub
  3023. Private Sub Command3_Click()
  3024. Dim CDFlags As Long
  3025. Dim i As Integer
  3026. On Error GoTo FileOpenError
  3027.     CDFlags = 0
  3028.     For i = 0 To 15
  3029.         CDFlags = CDFlags + Check3(i).Value * Val(Check3(i).Tag)
  3030.     Next
  3031.     CommonDialog1.Flags = CDFlags
  3032.     If Trim(DefExt.Text) <> "" Then CommonDialog1.DefaultExt = DefExt.Text
  3033.     If Trim(Filter.Text) <> "" Then CommonDialog1.Filter = Filter.Text
  3034.     If Trim(FilterIdx.Text) <> "" Then CommonDialog1.FilterIndex = Val(FilterIdx.Text)
  3035.     If Trim(InitialDir.Text) <> "" Then CommonDialog1.InitDir = InitialDir.Text
  3036.     If Trim(FName.Text) <> "" Then CommonDialog1.filename = FName.Text
  3037.     CommonDialog1.ShowOpen
  3038.     DefExt.Text = CommonDialog1.DefaultExt
  3039.     Filter.Text = CommonDialog1.Filter
  3040.     FilterIdx.Text = CommonDialog1.FilterIndex
  3041.     InitialDir.Text = CommonDialog1.InitDir
  3042.     FTitle.Caption = CommonDialog1.FileTitle
  3043.     FName.Text = CommonDialog1.filename
  3044.     Exit Sub
  3045. FileOpenError:
  3046.     If Err.Number = 32755 Then
  3047.         MsgBox "Operation aborted by the user"
  3048.     Else
  3049.         MsgBox Err.Description
  3050.     End If
  3051. End Sub
  3052. Private Sub Command4_Click()
  3053. Dim CDFlags As Long
  3054. Dim i As Integer
  3055. On Error GoTo FileSaveError
  3056.     CDFlags = 0
  3057.     For i = 0 To 15
  3058.         CDFlags = CDFlags + Check4(i).Value * Val(Check4(i).Tag)
  3059.     Next
  3060.     CommonDialog1.Flags = CDFlags
  3061.     If Trim(FSDefExt.Text) <> "" Then CommonDialog1.DefaultExt = FSDefExt.Text
  3062.     If Trim(FSFilter.Text) <> "" Then CommonDialog1.Filter = FSFilter.Text
  3063.     If Trim(FSFilterIdx.Text) <> "" Then CommonDialog1.FilterIndex = FSFilterIdx.Text
  3064.     If Trim(FSInitialDir.Text) <> "" Then CommonDialog1.InitDir = FSInitialDir.Text
  3065.     CommonDialog1.CancelError = True
  3066.     CommonDialog1.ShowSave
  3067.     FSDefExt.Text = CommonDialog1.DefaultExt
  3068.     FSFilter.Text = CommonDialog1.Filter
  3069.     FSFilterIdx.Text = CommonDialog1.FilterIndex
  3070.     FSInitialDir.Text = CommonDialog1.InitDir
  3071.     FSTitle.Caption = CommonDialog1.FileTitle
  3072.     FSFName.Caption = CommonDialog1.filename
  3073.     Exit Sub
  3074. FileSaveError:
  3075.     If Err.Number = 32755 Then
  3076.         MsgBox "Operation aborted by the user"
  3077.     Else
  3078.         MsgBox Err.Description
  3079.     End If
  3080. End Sub
  3081. Private Sub Command5_Click()
  3082. Dim CDFlags As Long
  3083. Dim i As Integer
  3084. On Error GoTo PrinterError
  3085.     CDFlags = 0
  3086.     For i = 0 To 15
  3087.         CDFlags = CDFlags + Check5(i).Value * Val(Check5(i).Tag)
  3088.     Next
  3089.     CommonDialog1.Flags = CDFlags
  3090.     If Trim(Copies.Text) <> "" Then CommonDialog1.Copies = Copies.Text
  3091.     If Trim(FromPage.Text) <> "" Then CommonDialog1.FromPage = Val(FromPage.Text)
  3092.     If Trim(ToPage.Text) <> "" Then CommonDialog1.ToPage = Val(ToPage.Text)
  3093.     CommonDialog1.CancelError = True
  3094.     CommonDialog1.ShowPrinter
  3095.     Copies.Text = CommonDialog1.Copies
  3096.     FromPage.Text = CommonDialog1.FromPage
  3097.     ToPage.Text = CommonDialog1.ToPage
  3098.     PDevice.Caption = CommonDialog1.hDC
  3099.     Exit Sub
  3100. PrinterError:
  3101.     If Err.Number = 32755 Then
  3102.         MsgBox "Operation aborted by the user"
  3103.     Else
  3104.         MsgBox Err.Number & Chr$(10) & Err.Description
  3105.     End If
  3106. End Sub
  3107. Private Sub Command6_Click()
  3108. Dim CMDFlags As Long
  3109. Dim i As Integer
  3110.     CMDFlags = 0
  3111.     For i = 0 To 11
  3112.         CMDFlags = CMDFlags + Check6(i).Value * Val(Check6(i).Tag)
  3113.     Next
  3114.     CommonDialog1.HelpCommand = CMDFlags
  3115.     CommonDialog1.HelpFile = HLPFile.Text
  3116.     CommonDialog1.HelpContext = Val(HLPCID.Text)
  3117.     CommonDialog1.HelpKey = HLPKey.Text
  3118.     CommonDialog1.ShowHelp
  3119. End Sub
  3120. Private Sub Form_Load()
  3121. End Sub
  3122.