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