home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Outlook_2K2097081112008.psc / fTest.frm < prev   
Text File  |  2008-01-02  |  22KB  |  702 lines
  1. VERSION 5.00
  2. Object = "*\ANavPane.vbp"
  3. Begin VB.Form fMain 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Navigation Pane Testing Project"
  6.    ClientHeight    =   7695
  7.    ClientLeft      =   45
  8.    ClientTop       =   360
  9.    ClientWidth     =   6255
  10.    Icon            =   "fTest.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   513
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   417
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin NavigationPane.NavPane NavPane1 
  18.       Height          =   7215
  19.       Left            =   240
  20.       Top             =   240
  21.       Width           =   3495
  22.       _ExtentX        =   6165
  23.       _ExtentY        =   12726
  24.       BorderColor     =   -2147483632
  25.       ForeColor       =   9126421
  26.       BeginProperty ToolTipFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  27.          Name            =   "Segoe UI"
  28.          Size            =   8.25
  29.          Charset         =   0
  30.          Weight          =   400
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Segoe UI"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   700
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  45.          Name            =   "Segoe UI"
  46.          Size            =   12
  47.          Charset         =   0
  48.          Weight          =   700
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       CaptionForeColor=   9126421
  54.       ButtonCount     =   0
  55.    End
  56.    Begin VB.PictureBox Ico1 
  57.       AutoRedraw      =   -1  'True
  58.       AutoSize        =   -1  'True
  59.       BorderStyle     =   0  'None
  60.       BeginProperty Font 
  61.          Name            =   "Segoe UI"
  62.          Size            =   8.25
  63.          Charset         =   0
  64.          Weight          =   400
  65.          Underline       =   0   'False
  66.          Italic          =   0   'False
  67.          Strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   240
  70.       Index           =   1
  71.       Left            =   3840
  72.       Picture         =   "fTest.frx":1CFA
  73.       ScaleHeight     =   16
  74.       ScaleMode       =   3  'Pixel
  75.       ScaleWidth      =   16
  76.       TabIndex        =   25
  77.       Top             =   720
  78.       Visible         =   0   'False
  79.       Width           =   240
  80.    End
  81.    Begin VB.PictureBox Ico2 
  82.       AutoRedraw      =   -1  'True
  83.       AutoSize        =   -1  'True
  84.       BorderStyle     =   0  'None
  85.       BeginProperty Font 
  86.          Name            =   "Segoe UI"
  87.          Size            =   8.25
  88.          Charset         =   0
  89.          Weight          =   400
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   240
  95.       Index           =   1
  96.       Left            =   4200
  97.       Picture         =   "fTest.frx":2284
  98.       ScaleHeight     =   16
  99.       ScaleMode       =   3  'Pixel
  100.       ScaleWidth      =   16
  101.       TabIndex        =   24
  102.       Top             =   720
  103.       Visible         =   0   'False
  104.       Width           =   240
  105.    End
  106.    Begin VB.PictureBox Ico3 
  107.       AutoRedraw      =   -1  'True
  108.       AutoSize        =   -1  'True
  109.       BorderStyle     =   0  'None
  110.       BeginProperty Font 
  111.          Name            =   "Segoe UI"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   240
  120.       Index           =   1
  121.       Left            =   4560
  122.       Picture         =   "fTest.frx":280E
  123.       ScaleHeight     =   16
  124.       ScaleMode       =   3  'Pixel
  125.       ScaleWidth      =   16
  126.       TabIndex        =   23
  127.       Top             =   720
  128.       Visible         =   0   'False
  129.       Width           =   240
  130.    End
  131.    Begin VB.PictureBox Ico4 
  132.       AutoRedraw      =   -1  'True
  133.       AutoSize        =   -1  'True
  134.       BorderStyle     =   0  'None
  135.       BeginProperty Font 
  136.          Name            =   "Segoe UI"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   240
  145.       Index           =   1
  146.       Left            =   4920
  147.       Picture         =   "fTest.frx":2D98
  148.       ScaleHeight     =   16
  149.       ScaleMode       =   3  'Pixel
  150.       ScaleWidth      =   16
  151.       TabIndex        =   22
  152.       Top             =   720
  153.       Visible         =   0   'False
  154.       Width           =   240
  155.    End
  156.    Begin VB.PictureBox Ico5 
  157.       AutoRedraw      =   -1  'True
  158.       AutoSize        =   -1  'True
  159.       BorderStyle     =   0  'None
  160.       BeginProperty Font 
  161.          Name            =   "Segoe UI"
  162.          Size            =   8.25
  163.          Charset         =   0
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   240
  170.       Index           =   1
  171.       Left            =   5280
  172.       Picture         =   "fTest.frx":3322
  173.       ScaleHeight     =   16
  174.       ScaleMode       =   3  'Pixel
  175.       ScaleWidth      =   16
  176.       TabIndex        =   21
  177.       Top             =   720
  178.       Visible         =   0   'False
  179.       Width           =   240
  180.    End
  181.    Begin VB.PictureBox Ico6 
  182.       AutoRedraw      =   -1  'True
  183.       AutoSize        =   -1  'True
  184.       BorderStyle     =   0  'None
  185.       BeginProperty Font 
  186.          Name            =   "Segoe UI"
  187.          Size            =   8.25
  188.          Charset         =   0
  189.          Weight          =   400
  190.          Underline       =   0   'False
  191.          Italic          =   0   'False
  192.          Strikethrough   =   0   'False
  193.       EndProperty
  194.       Height          =   240
  195.       Index           =   1
  196.       Left            =   5640
  197.       Picture         =   "fTest.frx":38AC
  198.       ScaleHeight     =   16
  199.       ScaleMode       =   3  'Pixel
  200.       ScaleWidth      =   16
  201.       TabIndex        =   20
  202.       Top             =   720
  203.       Visible         =   0   'False
  204.       Width           =   240
  205.    End
  206.    Begin VB.PictureBox Ico0 
  207.       AutoRedraw      =   -1  'True
  208.       AutoSize        =   -1  'True
  209.       BorderStyle     =   0  'None
  210.       BeginProperty Font 
  211.          Name            =   "Segoe UI"
  212.          Size            =   8.25
  213.          Charset         =   0
  214.          Weight          =   400
  215.          Underline       =   0   'False
  216.          Italic          =   0   'False
  217.          Strikethrough   =   0   'False
  218.       EndProperty
  219.       Height          =   240
  220.       Index           =   1
  221.       Left            =   3480
  222.       Picture         =   "fTest.frx":3E36
  223.       ScaleHeight     =   16
  224.       ScaleMode       =   3  'Pixel
  225.       ScaleWidth      =   16
  226.       TabIndex        =   19
  227.       Top             =   720
  228.       Visible         =   0   'False
  229.       Width           =   240
  230.    End
  231.    Begin VB.CommandButton Command4 
  232.       Caption         =   "Rename Current Button"
  233.       BeginProperty Font 
  234.          Name            =   "Segoe UI"
  235.          Size            =   8.25
  236.          Charset         =   0
  237.          Weight          =   400
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       Height          =   495
  243.       Left            =   4080
  244.       TabIndex        =   18
  245.       Top             =   6120
  246.       Width           =   1935
  247.    End
  248.    Begin VB.TextBox txtButtonCount 
  249.       BeginProperty Font 
  250.          Name            =   "Segoe UI"
  251.          Size            =   8.25
  252.          Charset         =   0
  253.          Weight          =   400
  254.          Underline       =   0   'False
  255.          Italic          =   0   'False
  256.          Strikethrough   =   0   'False
  257.       EndProperty
  258.       Height          =   285
  259.       Left            =   4080
  260.       Locked          =   -1  'True
  261.       TabIndex        =   16
  262.       Top             =   2040
  263.       Width           =   1935
  264.    End
  265.    Begin VB.CommandButton Command2 
  266.       Caption         =   "About..."
  267.       BeginProperty Font 
  268.          Name            =   "Segoe UI"
  269.          Size            =   8.25
  270.          Charset         =   0
  271.          Weight          =   400
  272.          Underline       =   0   'False
  273.          Italic          =   0   'False
  274.          Strikethrough   =   0   'False
  275.       EndProperty
  276.       Height          =   495
  277.       Left            =   4080
  278.       TabIndex        =   15
  279.       Top             =   6960
  280.       Width           =   1935
  281.    End
  282.    Begin VB.TextBox txtExpandedButton 
  283.       BeginProperty Font 
  284.          Name            =   "Segoe UI"
  285.          Size            =   8.25
  286.          Charset         =   0
  287.          Weight          =   400
  288.          Underline       =   0   'False
  289.          Italic          =   0   'False
  290.          Strikethrough   =   0   'False
  291.       EndProperty
  292.       Height          =   285
  293.       Left            =   4080
  294.       Locked          =   -1  'True
  295.       TabIndex        =   12
  296.       Top             =   2760
  297.       Width           =   1935
  298.    End
  299.    Begin VB.TextBox txtActiveButton 
  300.       BeginProperty Font 
  301.          Name            =   "Segoe UI"
  302.          Size            =   8.25
  303.          Charset         =   0
  304.          Weight          =   400
  305.          Underline       =   0   'False
  306.          Italic          =   0   'False
  307.          Strikethrough   =   0   'False
  308.       EndProperty
  309.       Height          =   285
  310.       Left            =   4080
  311.       Locked          =   -1  'True
  312.       TabIndex        =   11
  313.       Top             =   3480
  314.       Width           =   1935
  315.    End
  316.    Begin VB.ComboBox Combo1 
  317.       BeginProperty Font 
  318.          Name            =   "Segoe UI"
  319.          Size            =   8.25
  320.          Charset         =   0
  321.          Weight          =   400
  322.          Underline       =   0   'False
  323.          Italic          =   0   'False
  324.          Strikethrough   =   0   'False
  325.       EndProperty
  326.       Height          =   315
  327.       ItemData        =   "fTest.frx":43C0
  328.       Left            =   4080
  329.       List            =   "fTest.frx":43D0
  330.       Style           =   2  'Dropdown List
  331.       TabIndex        =   10
  332.       Top             =   1320
  333.       Width           =   1935
  334.    End
  335.    Begin VB.PictureBox Ico0 
  336.       AutoRedraw      =   -1  'True
  337.       AutoSize        =   -1  'True
  338.       BorderStyle     =   0  'None
  339.       BeginProperty Font 
  340.          Name            =   "Segoe UI"
  341.          Size            =   8.25
  342.          Charset         =   0
  343.          Weight          =   400
  344.          Underline       =   0   'False
  345.          Italic          =   0   'False
  346.          Strikethrough   =   0   'False
  347.       EndProperty
  348.       Height          =   360
  349.       Index           =   0
  350.       Left            =   3480
  351.       Picture         =   "fTest.frx":4407
  352.       ScaleHeight     =   24
  353.       ScaleMode       =   3  'Pixel
  354.       ScaleWidth      =   24
  355.       TabIndex        =   8
  356.       Top             =   240
  357.       Visible         =   0   'False
  358.       Width           =   360
  359.    End
  360.    Begin VB.PictureBox Ico6 
  361.       AutoRedraw      =   -1  'True
  362.       AutoSize        =   -1  'True
  363.       BorderStyle     =   0  'None
  364.       BeginProperty Font 
  365.          Name            =   "Segoe UI"
  366.          Size            =   8.25
  367.          Charset         =   0
  368.          Weight          =   400
  369.          Underline       =   0   'False
  370.          Italic          =   0   'False
  371.          Strikethrough   =   0   'False
  372.       EndProperty
  373.       Height          =   360
  374.       Index           =   0
  375.       Left            =   5640
  376.       Picture         =   "fTest.frx":4AF1
  377.       ScaleHeight     =   24
  378.       ScaleMode       =   3  'Pixel
  379.       ScaleWidth      =   24
  380.       TabIndex        =   7
  381.       Top             =   240
  382.       Visible         =   0   'False
  383.       Width           =   360
  384.    End
  385.    Begin VB.PictureBox Ico5 
  386.       AutoRedraw      =   -1  'True
  387.       AutoSize        =   -1  'True
  388.       BorderStyle     =   0  'None
  389.       BeginProperty Font 
  390.          Name            =   "Segoe UI"
  391.          Size            =   8.25
  392.          Charset         =   0
  393.          Weight          =   400
  394.          Underline       =   0   'False
  395.          Italic          =   0   'False
  396.          Strikethrough   =   0   'False
  397.       EndProperty
  398.       Height          =   360
  399.       Index           =   0
  400.       Left            =   5280
  401.       Picture         =   "fTest.frx":51DB
  402.       ScaleHeight     =   24
  403.       ScaleMode       =   3  'Pixel
  404.       ScaleWidth      =   24
  405.       TabIndex        =   6
  406.       Top             =   240
  407.       Visible         =   0   'False
  408.       Width           =   360
  409.    End
  410.    Begin VB.PictureBox Ico4 
  411.       AutoRedraw      =   -1  'True
  412.       AutoSize        =   -1  'True
  413.       BorderStyle     =   0  'None
  414.       BeginProperty Font 
  415.          Name            =   "Segoe UI"
  416.          Size            =   8.25
  417.          Charset         =   0
  418.          Weight          =   400
  419.          Underline       =   0   'False
  420.          Italic          =   0   'False
  421.          Strikethrough   =   0   'False
  422.       EndProperty
  423.       Height          =   360
  424.       Index           =   0
  425.       Left            =   4920
  426.       Picture         =   "fTest.frx":58C5
  427.       ScaleHeight     =   24
  428.       ScaleMode       =   3  'Pixel
  429.       ScaleWidth      =   24
  430.       TabIndex        =   5
  431.       Top             =   240
  432.       Visible         =   0   'False
  433.       Width           =   360
  434.    End
  435.    Begin VB.PictureBox Ico3 
  436.       AutoRedraw      =   -1  'True
  437.       AutoSize        =   -1  'True
  438.       BorderStyle     =   0  'None
  439.       BeginProperty Font 
  440.          Name            =   "Segoe UI"
  441.          Size            =   8.25
  442.          Charset         =   0
  443.          Weight          =   400
  444.          Underline       =   0   'False
  445.          Italic          =   0   'False
  446.          Strikethrough   =   0   'False
  447.       EndProperty
  448.       Height          =   360
  449.       Index           =   0
  450.       Left            =   4560
  451.       Picture         =   "fTest.frx":5FAF
  452.       ScaleHeight     =   24
  453.       ScaleMode       =   3  'Pixel
  454.       ScaleWidth      =   24
  455.       TabIndex        =   4
  456.       Top             =   240
  457.       Visible         =   0   'False
  458.       Width           =   360
  459.    End
  460.    Begin VB.PictureBox Ico2 
  461.       AutoRedraw      =   -1  'True
  462.       AutoSize        =   -1  'True
  463.       BorderStyle     =   0  'None
  464.       BeginProperty Font 
  465.          Name            =   "Segoe UI"
  466.          Size            =   8.25
  467.          Charset         =   0
  468.          Weight          =   400
  469.          Underline       =   0   'False
  470.          Italic          =   0   'False
  471.          Strikethrough   =   0   'False
  472.       EndProperty
  473.       Height          =   360
  474.       Index           =   0
  475.       Left            =   4200
  476.       Picture         =   "fTest.frx":6699
  477.       ScaleHeight     =   24
  478.       ScaleMode       =   3  'Pixel
  479.       ScaleWidth      =   24
  480.       TabIndex        =   3
  481.       Top             =   240
  482.       Visible         =   0   'False
  483.       Width           =   360
  484.    End
  485.    Begin VB.PictureBox Ico1 
  486.       AutoRedraw      =   -1  'True
  487.       AutoSize        =   -1  'True
  488.       BorderStyle     =   0  'None
  489.       BeginProperty Font 
  490.          Name            =   "Segoe UI"
  491.          Size            =   8.25
  492.          Charset         =   0
  493.          Weight          =   400
  494.          Underline       =   0   'False
  495.          Italic          =   0   'False
  496.          Strikethrough   =   0   'False
  497.       EndProperty
  498.       Height          =   360
  499.       Index           =   0
  500.       Left            =   3840
  501.       Picture         =   "fTest.frx":6D83
  502.       ScaleHeight     =   24
  503.       ScaleMode       =   3  'Pixel
  504.       ScaleWidth      =   24
  505.       TabIndex        =   2
  506.       Top             =   240
  507.       Visible         =   0   'False
  508.       Width           =   360
  509.    End
  510.    Begin VB.CommandButton Command3 
  511.       Caption         =   "Remove Current Button"
  512.       BeginProperty Font 
  513.          Name            =   "Segoe UI"
  514.          Size            =   8.25
  515.          Charset         =   0
  516.          Weight          =   400
  517.          Underline       =   0   'False
  518.          Italic          =   0   'False
  519.          Strikethrough   =   0   'False
  520.       EndProperty
  521.       Height          =   495
  522.       Left            =   4080
  523.       TabIndex        =   1
  524.       Top             =   5280
  525.       Width           =   1935
  526.    End
  527.    Begin VB.CommandButton Command1 
  528.       Caption         =   "Add Button"
  529.       BeginProperty Font 
  530.          Name            =   "Segoe UI"
  531.          Size            =   8.25
  532.          Charset         =   0
  533.          Weight          =   400
  534.          Underline       =   0   'False
  535.          Italic          =   0   'False
  536.          Strikethrough   =   0   'False
  537.       EndProperty
  538.       Height          =   495
  539.       Left            =   4080
  540.       TabIndex        =   0
  541.       Top             =   4440
  542.       Width           =   1935
  543.    End
  544.    Begin VB.Label Label2 
  545.       Caption         =   "Button Count:"
  546.       BeginProperty Font 
  547.          Name            =   "Segoe UI"
  548.          Size            =   8.25
  549.          Charset         =   0
  550.          Weight          =   400
  551.          Underline       =   0   'False
  552.          Italic          =   0   'False
  553.          Strikethrough   =   0   'False
  554.       EndProperty
  555.       Height          =   255
  556.       Left            =   4080
  557.       TabIndex        =   17
  558.       Top             =   1800
  559.       Width           =   1935
  560.    End
  561.    Begin VB.Label lblExpandedButton 
  562.       Caption         =   "Expanded Button:"
  563.       BeginProperty Font 
  564.          Name            =   "Segoe UI"
  565.          Size            =   8.25
  566.          Charset         =   0
  567.          Weight          =   400
  568.          Underline       =   0   'False
  569.          Italic          =   0   'False
  570.          Strikethrough   =   0   'False
  571.       EndProperty
  572.       Height          =   255
  573.       Left            =   4080
  574.       TabIndex        =   14
  575.       Top             =   2520
  576.       Width           =   1935
  577.    End
  578.    Begin VB.Label lblActiveButton 
  579.       Caption         =   "Active Button:"
  580.       BeginProperty Font 
  581.          Name            =   "Segoe UI"
  582.          Size            =   8.25
  583.          Charset         =   0
  584.          Weight          =   400
  585.          Underline       =   0   'False
  586.          Italic          =   0   'False
  587.          Strikethrough   =   0   'False
  588.       EndProperty
  589.       Height          =   255
  590.       Left            =   4080
  591.       TabIndex        =   13
  592.       Top             =   3240
  593.       Width           =   1935
  594.    End
  595.    Begin VB.Label Label1 
  596.       AutoSize        =   -1  'True
  597.       BackStyle       =   0  'Transparent
  598.       Caption         =   "Color Scheme:"
  599.       BeginProperty Font 
  600.          Name            =   "Segoe UI"
  601.          Size            =   8.25
  602.          Charset         =   0
  603.          Weight          =   400
  604.          Underline       =   0   'False
  605.          Italic          =   0   'False
  606.          Strikethrough   =   0   'False
  607.       EndProperty
  608.       Height          =   195
  609.       Left            =   4080
  610.       TabIndex        =   9
  611.       Top             =   1080
  612.       Width           =   1095
  613.    End
  614. End
  615. Attribute VB_Name = "fMain"
  616. Attribute VB_GlobalNameSpace = False
  617. Attribute VB_Creatable = False
  618. Attribute VB_PredeclaredId = True
  619. Attribute VB_Exposed = False
  620. Option Explicit
  621.  
  622. Dim i As Integer
  623.  
  624. Private Sub Combo1_Change()
  625.   NavPane1.Theme = Combo1.ListIndex
  626. End Sub
  627.  
  628. Private Sub Combo1_Clic_=  3
  629.  BeginPrope  =   193lXty Font 
  630.   = T =   400
  631.        di       oo3S4   Charset         =   0
  632.     1altbutetscta
  633. End Sub
  634. 7r1r8.25
  635.          Charset         =   0
  636.          Weight          =n   3uTs       =   35ulic_=  3
  637.  0".gh   =    tribute VB_GlobalNameSpace =us    I8  'Pixel
  638.       Scale tFx  'Fd 'Pixt80
  639.       Tabx Bedraw      =   -1  'True
  640.       AutoSize        =   -1  'True
  641.       BorderStyle     =   0  'None
  642.       BeginProperty Font 
  643. E ty Font 
  644.    03alse
  645.       EndProperty
  646.       Height          =   195
  647.       Left            =   4080
  648.       TabIndex        =   9
  649.       Top             =   1080
  650.       Width           =   1095
  651.    End
  652. End
  653. Attribute VB_Name = "fMain"
  654. Attribute VB_GlobalNameSpac "SegEnd
  655. Attribute VB_Name = "fMain"
  656. Attribute VB_GlobalNameSpac "SegEnd
  657. 1303alse
  658.       Ebute VB_Name = "fMa  =   0   'False
  659.          Italic          =3N= 'False
  660. s
  661.  
  662. Priiiiiiiiio         =3N= 'False
  663. s
  664.  
  665. Priiiiiiiiio         =3N= 'False
  666. s
  667.  
  668. Priiiiiiiiio         =3N= 'False
  669. s
  670.  
  671. Priiiiiiiiio         =3N= 'False
  672. s
  673.  
  674. Priiiiiiiiio         =3N= 'False
  675. s
  676.  
  677. Priiiiiiiiio         =3N= 'False
  678. s
  679.  
  680. Priiiiiiiiio         =3N= 'False
  681. s
  682.  
  683. PriitFt8sEeiiiiio         =3N= 'False
  684. s
  685.  
  686. Priiiiiiiiio         =3N= 'False
  687. s
  688.  
  689. PriitFt8sEeiiiiio         =3N= 'False
  690. s
  691.  
  692. Priy =   4001se
  693. s
  694.  
  695. Pralsx    eeginProperm =3N= 'FaV    ox    eeginPCB(d3         =               gCeg a&ty Font 
  696.          Name           hs  AutoRedraw      se
  697. s
  698.  
  699. Priiiiiiiiio  V6 N   Left            =   4080
  700.       TabIndex        =dethrough  yl Eb   TabIndex        35
  701.    End
  702.    Begin VB.Label