VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form20 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   3690
   ClientLeft      =   30
   ClientTop       =   270
   ClientWidth     =   5460
   LinkTopic       =   "Form20"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3690
   ScaleWidth      =   5460
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command4 
      Caption         =   "Refresh"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   120
      TabIndex        =   65
      Top             =   3360
      Width           =   750
   End
   Begin MSComDlg.CommonDialog CD1 
      Left            =   2712
      Top             =   1584
      _ExtentX        =   688
      _ExtentY        =   688
      _Version        =   393216
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Copy"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   1032
      TabIndex        =   64
      Top             =   3036
      Width           =   750
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFFF&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   204
      Left            =   4044
      TabIndex        =   63
      Top             =   240
      Visible         =   0   'False
      Width           =   1000
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Save"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   120
      TabIndex        =   62
      Top             =   3048
      Width           =   750
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Close"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   1050
      TabIndex        =   61
      Top             =   3360
      Width           =   750
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   29
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   59
      Top             =   2676
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   28
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   57
      Top             =   2400
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   27
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   55
      Top             =   2136
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   26
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   53
      Top             =   1872
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   25
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   51
      Top             =   1608
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   24
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   49
      Top             =   1344
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   23
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   47
      Top             =   1068
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   22
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   45
      Top             =   804
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   21
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   43
      Top             =   540
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   20
      Left            =   3624
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   41
      Top             =   276
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   19
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   39
      Top             =   2688
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   18
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   37
      Top             =   2412
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   17
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   35
      Top             =   2148
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   16
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   33
      Top             =   1884
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   15
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   31
      Top             =   1620
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   14
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   29
      Top             =   1356
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   13
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   27
      Top             =   1080
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   12
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   25
      Top             =   816
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   11
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   23
      Top             =   552
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   10
      Left            =   1824
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   21
      Top             =   288
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   9
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   19
      Top             =   2676
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   8
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   17
      Top             =   2400
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   7
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   15
      Top             =   2136
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   6
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   13
      Top             =   1872
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   5
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   11
      Top             =   1608
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   4
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   9
      Top             =   1344
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   3
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   7
      Top             =   1068
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   2
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   5
      Top             =   804
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   1
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   3
      Top             =   540
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   250
      Index           =   0
      Left            =   24
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   15
      TabIndex        =   1
      Top             =   276
      Visible         =   0   'False
      Width           =   250
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "10-12"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   59
      Left            =   300
      TabIndex        =   95
      Top             =   312
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   58
      Left            =   300
      TabIndex        =   94
      Top             =   576
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   57
      Left            =   300
      TabIndex        =   93
      Top             =   840
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   56
      Left            =   300
      TabIndex        =   92
      Top             =   1104
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   55
      Left            =   300
      TabIndex        =   91
      Top             =   1380
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   54
      Left            =   300
      TabIndex        =   90
      Top             =   1644
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   53
      Left            =   300
      TabIndex        =   89
      Top             =   1908
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   52
      Left            =   300
      TabIndex        =   88
      Top             =   2172
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   51
      Left            =   300
      TabIndex        =   87
      Top             =   2436
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   50
      Left            =   300
      TabIndex        =   86
      Top             =   2712
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "10-12"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   49
      Left            =   2112
      TabIndex        =   85
      Top             =   324
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   48
      Left            =   2112
      TabIndex        =   84
      Top             =   588
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   47
      Left            =   2112
      TabIndex        =   83
      Top             =   852
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   46
      Left            =   2112
      TabIndex        =   82
      Top             =   1116
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   45
      Left            =   2112
      TabIndex        =   81
      Top             =   1392
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   44
      Left            =   2112
      TabIndex        =   80
      Top             =   1656
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   43
      Left            =   2112
      TabIndex        =   79
      Top             =   1920
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   42
      Left            =   2112
      TabIndex        =   78
      Top             =   2184
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   41
      Left            =   2112
      TabIndex        =   77
      Top             =   2448
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   40
      Left            =   2112
      TabIndex        =   76
      Top             =   2724
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   39
      Left            =   3912
      TabIndex        =   75
      Top             =   300
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   38
      Left            =   3912
      TabIndex        =   74
      Top             =   564
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   37
      Left            =   3912
      TabIndex        =   73
      Top             =   828
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   36
      Left            =   3912
      TabIndex        =   72
      Top             =   1092
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   35
      Left            =   3912
      TabIndex        =   71
      Top             =   1368
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   34
      Left            =   3912
      TabIndex        =   70
      Top             =   1632
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   33
      Left            =   3912
      TabIndex        =   69
      Top             =   1896
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   32
      Left            =   3912
      TabIndex        =   68
      Top             =   2160
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   31
      Left            =   3912
      TabIndex        =   67
      Top             =   2424
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   30
      Left            =   3912
      TabIndex        =   66
      Top             =   2700
      Visible         =   0   'False
      Width           =   396
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFFF&
      Caption         =   "LEGEND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   192
      Left            =   48
      TabIndex        =   60
      Top             =   36
      Width           =   816
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   29
      Left            =   4356
      TabIndex        =   58
      Top             =   2700
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   28
      Left            =   4356
      TabIndex        =   56
      Top             =   2424
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   27
      Left            =   4356
      TabIndex        =   54
      Top             =   2160
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   26
      Left            =   4356
      TabIndex        =   52
      Top             =   1896
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   25
      Left            =   4356
      TabIndex        =   50
      Top             =   1632
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   24
      Left            =   4356
      TabIndex        =   48
      Top             =   1368
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   23
      Left            =   4356
      TabIndex        =   46
      Top             =   1092
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   22
      Left            =   4356
      TabIndex        =   44
      Top             =   828
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   21
      Left            =   4356
      TabIndex        =   42
      Top             =   564
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   20
      Left            =   4356
      TabIndex        =   40
      Top             =   300
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   19
      Left            =   2556
      TabIndex        =   38
      Top             =   2724
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   18
      Left            =   2556
      TabIndex        =   36
      Top             =   2448
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   17
      Left            =   2556
      TabIndex        =   34
      Top             =   2184
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   16
      Left            =   2556
      TabIndex        =   32
      Top             =   1920
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   15
      Left            =   2556
      TabIndex        =   30
      Top             =   1656
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   14
      Left            =   2556
      TabIndex        =   28
      Top             =   1392
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   13
      Left            =   2556
      TabIndex        =   26
      Top             =   1116
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   12
      Left            =   2556
      TabIndex        =   24
      Top             =   852
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   11
      Left            =   2556
      TabIndex        =   22
      Top             =   588
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   10
      Left            =   2556
      TabIndex        =   20
      Top             =   324
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   9
      Left            =   744
      TabIndex        =   18
      Top             =   2712
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   8
      Left            =   744
      TabIndex        =   16
      Top             =   2436
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   7
      Left            =   744
      TabIndex        =   14
      Top             =   2172
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   6
      Left            =   744
      TabIndex        =   12
      Top             =   1908
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   5
      Left            =   744
      TabIndex        =   10
      Top             =   1644
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   4
      Left            =   744
      TabIndex        =   8
      Top             =   1380
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   3
      Left            =   744
      TabIndex        =   6
      Top             =   1104
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   2
      Left            =   744
      TabIndex        =   4
      Top             =   840
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   1
      Left            =   744
      TabIndex        =   2
      Top             =   576
      Visible         =   0   'False
      Width           =   996
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   204
      Index           =   0
      Left            =   744
      TabIndex        =   0
      Top             =   312
      Visible         =   0   'False
      Width           =   996
   End
End
Attribute VB_Name = "Form20"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form20.Hide
End Sub

Private Sub Command2_Click()
On Error GoTo error

aaa = App.Path + "\data\legend"

MF1.OpenMeta aaa, 0, 0, 1500 / 10, 4000 / 10
MF1.LineColor = QBColor(15)
MF1.L_Rectangle 1 / 10, 1 / 10, 1499 / 10, 3999 / 10
MF1.InsertPointL
MF1.CloseMeta

Clipboard.Clear

Dim obj As Picture
Set obj = LoadPicture(aaa)

Clipboard.SetData obj

error:

End Sub

Private Sub Command3_Click()

On Error GoTo error

aaa = App.Path + "\data\legend"

MF1.OpenMeta aaa, 0, 0, 1500, 4000
MF1.LineColor = QBColor(15)
MF1.L_Rectangle 1, 1, 1499, 3999
MF1.InsertPointL
MF1.CloseMeta

CD1.DialogTitle = "Salva Legenda (.emf) ..."
CD1.Filter = "*.emf"
CD1.FileName = "Legend.emf"
CD1.ShowSave
file$ = CD1.FileName

If Right(file$, 4) = ".emf" Then
file$ = file$
Else
file$ = file$ + ".emf"
End If

Dim obj As Picture
Set obj = LoadPicture(aaa)

SavePicture obj, file$

error:

End Sub

Private Sub Command4_Click()

On Error GoTo sere



If Fileopen = False Then
GoTo sere1
End If

Form20.Text1.Visible = False

For i = 1 To Numcamp1
BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
aa = Val(BackGrnd.FG1.Text)
If aa <> 0 Then
indL = i
GoTo vai
End If
Next i
vai:
TipoL(1) = aa
BackGrnd.FG1.col = 2
BackGrnd.FG1.Row = indL
ColL(1) = Val(BackGrnd.FG1.Text)
If Legen = False Then
'SerieL(1) = NomeCamp(indL)
End If
numseries = 1


For i = 1 To Numcamp1

If numseries > 29 Then
GoTo dopo
End If

If numseries > 29 Then
GoTo dopo
End If


For ii = 1 To numseries

    BackGrnd.FG1.Row = i
    BackGrnd.FG1.col = 1
    aa = Val(BackGrnd.FG1.Text)
    If aa <= 0 Then
    GoTo dopo
    End If
    
    cc = Val(BackGrnd.FG1.Text)
    If TipoL(ii) = cc Then
        
    BackGrnd.FG1.col = 2
    cc = Val(BackGrnd.FG1.Text)
    If ColL(ii) = cc Then
    GoTo dopo
    End If
    
    End If
    
 Next ii
    
    numseries = numseries + 1
    BackGrnd.FG1.col = 1
    aa = BackGrnd.FG1.Text
    TipoL(numseries) = Val(aa)
    BackGrnd.FG1.col = 2
    bb = BackGrnd.FG1.Text
    ColL(numseries) = Val(bb)
    If Legen = False Then
    'SerieL(numseries) = NomeCamp(i)
    End If
   

dopo:

Next i


Open App.Path + "\legend.txt" For Output As #1

For i = 1 To numseries

Write #1, TipoL(i), ColL(i), SerieL(i)

Next i

Close #1

Legen = True

For i = 1 To 30
Form20.Label1(i - 1).Visible = False
Form20.Label1(i - 1).Caption = ""
Form20.Picture1(i - 1).Visible = False
Form20.Label1(60 - i).Visible = False
Form20.Picture1(i - 1).Cls
Next i

If numseries < 11 Then
Form20.Width = 1890
End If

If numseries > 10 And numseries < 21 Then
Form20.Width = 3700
End If

If numseries > 20 And numseries < 31 Then
Form20.Width = 5590
End If

NumL = numseries



For i = 1 To numseries


'-----------------------
colorl = BackGrnd.Picture1(ColL(i) + 8).BackColor
'Form20.Label1(i - 1).Caption = SerieL(i)


If TipoL(i) = 1 Then

Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillColor = colorl
Form20.Picture1(i - 1).FillStyle = 0
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), colorl, B
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 2 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillColor = colorl
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), colorl, B
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 3 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillColor = colorl
Form20.Picture1(i - 1).FillStyle = 0
Form20.Picture1(i - 1).Circle (5, 5), 2, colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 4 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillColor = colorl
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Circle (5, 5), 2, colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 5 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5, 5 + 2), colorl
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), colorl
Form20.Picture1(i - 1).Line (5 + 2, 5 - 2)-(5, 5 + 2), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 6 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5 + 2)-(5, 5 - 2), colorl
Form20.Picture1(i - 1).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), colorl
Form20.Picture1(i - 1).Line (5 + 2, 5 + 2)-(5, 5 - 2), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 7 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5)-(5 + 2, 5), colorl
Form20.Picture1(i - 1).Line (5, 5 - 2)-(5, 5 + 2), colorl
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), colorl
Form20.Picture1(i - 1).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 8 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5)-(5 + 2, 5), colorl
Form20.Picture1(i - 1).Line (5, 5 - 2)-(5, 5 + 2), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 9 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5)-(5, 5 + 4), colorl
Form20.Picture1(i - 1).Line (5, 5 + 4)-(5 + 2, 5), colorl
Form20.Picture1(i - 1).Line (5 + 2, 5)-(5, 5 - 4), colorl
Form20.Picture1(i - 1).Line (5, 5 - 4)-(5 - 2, 5), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 10 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), colorl
Form20.Picture1(i - 1).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 11 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5)-(5 + 2, 5), colorl
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

If TipoL(i) = 12 Then
Form20.Label1(i - 1).Visible = True
Form20.Picture1(i - 1).Visible = True
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), colorl
Form20.Picture1(i - 1).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), colorl
Form20.Picture1(i - 1).FillColor = colorl
Form20.Picture1(i - 1).FillStyle = 1
Form20.Picture1(i - 1).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), colorl, B
Form20.Label1(60 - i).Caption = Str(TipoL(i)) + "-" + Trim(Str(ColL(i)))
Form20.Label1(60 - i).Visible = True
End If

Next i

For i = 1 To 30
For ii = 1 To 30
If ColS(ii) = ColL(i) And TipoS(ii) = TipoL(i) Then
Form20.Label1(i - 1).Caption = SerieL(ii)
GoTo poi1
End If


Next ii
poi1:
Next i
'---------------------------
If numseries > 29 Then
MsgBox "Attention. More then 30 symbol are present.", , "Attention"
End If

Form20.Show
Form20.SetFocus

GoTo sere1

sere:

MsgBox "An Error Occurred", , "Error"

sere1:

End Sub

Private Sub Form_Load()

For i = 0 To 29
Form20.Picture1(i).Scale (1, 9)-(9, 1)
Next i

End Sub

Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)



Label1(IndexL).Caption = Text1.Text
SerieL(IndexL + 1) = Text1.Text
TipoS(IndexL + 1) = TipoL(IndexL + 1)
ColS(IndexL + 1) = ColL(IndexL + 1)
Text1.Text = Label1(Index).Caption
Text1.left = Label1(Index).left
Text1.top = Label1(Index).top
Text1.Visible = True
IndexL = Index




End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 32 Then

Text1.Visible = False
Label1(IndexL).Caption = Text1.Text
SerieL(IndexL + 1) = Text1.Text
TipoS(IndexL + 1) = TipoL(IndexL + 1)
ColS(IndexL + 1) = ColL(IndexL + 1)
End If

End Sub