VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1 
   Caption         =   "Zonendefinition"
   ClientHeight    =   8760
   ClientLeft      =   450
   ClientTop       =   1230
   ClientWidth     =   12375
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   15.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   8760
   ScaleWidth      =   12375
   Begin VB.CommandButton cmdEvent 
      Caption         =   "Event Definieren"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2880
      TabIndex        =   104
      Top             =   7680
      Width           =   2295
   End
   Begin MSComDlg.CommonDialog cmDatei 
      Left            =   240
      Top             =   7560
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Filter          =   "Headerdateien (*.h)|*.h"
   End
   Begin VB.CommandButton cmdDifine 
      Caption         =   "Definieren"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2880
      TabIndex        =   2
      Top             =   8160
      Width           =   2295
   End
   Begin MSComDlg.CommonDialog cmSource 
      Left            =   240
      Top             =   8160
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Filter          =   "Bilder (*.bmp)|*.bmp"
   End
   Begin VB.TextBox txtdatei 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   840
      MultiLine       =   -1  'True
      TabIndex        =   105
      Top             =   7920
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   1
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   0
      Left            =   2280
      TabIndex        =   3
      Top             =   8640
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   100
      Left            =   0
      TabIndex        =   103
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   99
      Left            =   0
      TabIndex        =   102
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   98
      Left            =   0
      TabIndex        =   101
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   97
      Left            =   0
      TabIndex        =   100
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   96
      Left            =   0
      TabIndex        =   99
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   95
      Left            =   0
      TabIndex        =   98
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   94
      Left            =   0
      TabIndex        =   97
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   93
      Left            =   0
      TabIndex        =   96
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   92
      Left            =   0
      TabIndex        =   95
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   91
      Left            =   0
      TabIndex        =   94
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   90
      Left            =   0
      TabIndex        =   93
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   89
      Left            =   0
      TabIndex        =   92
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   88
      Left            =   0
      TabIndex        =   91
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   87
      Left            =   0
      TabIndex        =   90
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   86
      Left            =   0
      TabIndex        =   89
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   85
      Left            =   0
      TabIndex        =   88
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   84
      Left            =   0
      TabIndex        =   87
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   83
      Left            =   0
      TabIndex        =   86
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   82
      Left            =   0
      TabIndex        =   85
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   81
      Left            =   0
      TabIndex        =   84
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   80
      Left            =   0
      TabIndex        =   83
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   79
      Left            =   0
      TabIndex        =   82
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   78
      Left            =   0
      TabIndex        =   81
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   77
      Left            =   0
      TabIndex        =   80
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   76
      Left            =   0
      TabIndex        =   79
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   75
      Left            =   0
      TabIndex        =   78
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   74
      Left            =   0
      TabIndex        =   77
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   73
      Left            =   0
      TabIndex        =   76
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   72
      Left            =   0
      TabIndex        =   75
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   71
      Left            =   0
      TabIndex        =   74
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   70
      Left            =   0
      TabIndex        =   73
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   69
      Left            =   0
      TabIndex        =   72
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   68
      Left            =   0
      TabIndex        =   71
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   67
      Left            =   0
      TabIndex        =   70
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   66
      Left            =   0
      TabIndex        =   69
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   65
      Left            =   0
      TabIndex        =   68
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   64
      Left            =   0
      TabIndex        =   67
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   63
      Left            =   0
      TabIndex        =   66
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   62
      Left            =   0
      TabIndex        =   65
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   61
      Left            =   0
      TabIndex        =   64
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   60
      Left            =   0
      TabIndex        =   63
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   59
      Left            =   0
      TabIndex        =   62
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   58
      Left            =   0
      TabIndex        =   61
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   57
      Left            =   0
      TabIndex        =   60
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   56
      Left            =   0
      TabIndex        =   59
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   55
      Left            =   0
      TabIndex        =   58
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   54
      Left            =   0
      TabIndex        =   57
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   53
      Left            =   0
      TabIndex        =   56
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   52
      Left            =   0
      TabIndex        =   55
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   51
      Left            =   0
      TabIndex        =   54
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   50
      Left            =   0
      TabIndex        =   53
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   49
      Left            =   0
      TabIndex        =   52
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   48
      Left            =   0
      TabIndex        =   51
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   47
      Left            =   0
      TabIndex        =   50
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   46
      Left            =   0
      TabIndex        =   49
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   45
      Left            =   0
      TabIndex        =   48
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   44
      Left            =   0
      TabIndex        =   47
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   43
      Left            =   0
      TabIndex        =   46
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   42
      Left            =   0
      TabIndex        =   45
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   41
      Left            =   0
      TabIndex        =   44
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   40
      Left            =   0
      TabIndex        =   43
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   39
      Left            =   0
      TabIndex        =   42
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   38
      Left            =   0
      TabIndex        =   41
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   37
      Left            =   0
      TabIndex        =   40
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   36
      Left            =   0
      TabIndex        =   39
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   35
      Left            =   0
      TabIndex        =   38
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   34
      Left            =   0
      TabIndex        =   37
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   33
      Left            =   0
      TabIndex        =   36
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   32
      Left            =   0
      TabIndex        =   35
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   31
      Left            =   0
      TabIndex        =   34
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   30
      Left            =   0
      TabIndex        =   33
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   29
      Left            =   0
      TabIndex        =   32
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   28
      Left            =   0
      TabIndex        =   31
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   27
      Left            =   0
      TabIndex        =   30
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   26
      Left            =   0
      TabIndex        =   29
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   25
      Left            =   0
      TabIndex        =   28
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   24
      Left            =   0
      TabIndex        =   27
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   23
      Left            =   0
      TabIndex        =   26
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   22
      Left            =   0
      TabIndex        =   25
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   21
      Left            =   0
      TabIndex        =   24
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   20
      Left            =   0
      TabIndex        =   23
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   19
      Left            =   0
      TabIndex        =   22
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   18
      Left            =   0
      TabIndex        =   21
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   17
      Left            =   0
      TabIndex        =   20
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   16
      Left            =   0
      TabIndex        =   19
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   15
      Left            =   0
      TabIndex        =   18
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   14
      Left            =   0
      TabIndex        =   17
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   13
      Left            =   0
      TabIndex        =   16
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   12
      Left            =   0
      TabIndex        =   15
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   11
      Left            =   0
      TabIndex        =   14
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   10
      Left            =   0
      TabIndex        =   13
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   9
      Left            =   0
      TabIndex        =   12
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   8
      Left            =   0
      TabIndex        =   11
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   7
      Left            =   0
      TabIndex        =   10
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   6
      Left            =   0
      TabIndex        =   9
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   5
      Left            =   0
      TabIndex        =   8
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   4
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   3
      Left            =   0
      TabIndex        =   6
      Top             =   0
      Width           =   15
   End
   Begin VB.Label lblDescription 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   15
      Index           =   2
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   100
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   99
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   98
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   97
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   96
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   95
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   94
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   93
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   92
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   91
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   90
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   89
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   88
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   87
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   86
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   85
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   84
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   83
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   82
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   81
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   80
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   79
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   78
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   77
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   76
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   75
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   74
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   73
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   72
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   71
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   70
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   69
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   68
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   67
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   66
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   65
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   64
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   63
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   62
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   61
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   60
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   59
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   58
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   57
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   56
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   55
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   54
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   53
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   52
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   51
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   50
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   49
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   48
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   47
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   46
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   45
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   44
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   43
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   42
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   41
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   40
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   39
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   38
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   37
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   36
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   35
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   34
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   33
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   32
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   31
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   30
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   29
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   28
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   27
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   26
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   25
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   24
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   23
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   22
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   21
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   20
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   19
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   18
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   17
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   16
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   15
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   14
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   13
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   12
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   11
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   10
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   9
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   8
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   7
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   6
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   5
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   4
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   3
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   2
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   1
      Left            =   0
      Top             =   0
      Width           =   15
   End
   Begin VB.Shape zone 
      BackColor       =   &H00FFC0C0&
      BorderColor     =   &H000080FF&
      FillColor       =   &H000080FF&
      FillStyle       =   3  'Vertical Line
      Height          =   15
      Index           =   0
      Left            =   2880
      Top             =   8640
      Width           =   15
   End
   Begin VB.Shape Signal 
      BackColor       =   &H00FFC0C0&
      FillStyle       =   7  'Diagonal Cross
      Height          =   15
      Left            =   360
      Top             =   8400
      Width           =   15
   End
   Begin VB.Label Anzeige2 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6360
      TabIndex        =   1
      Top             =   7680
      Width           =   2655
   End
   Begin VB.Label Anzeige1 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6360
      TabIndex        =   0
      Top             =   8160
      Width           =   2655
   End
   Begin VB.Image ImgBild 
      Height          =   7275
      Left            =   120
      Picture         =   "Form1.frx":0000
      Top             =   120
      Width           =   12000
   End
   Begin VB.Menu mnuFile 
      Caption         =   "File"
      Index           =   1
      Begin VB.Menu mnuNewImg 
         Caption         =   "New Image"
      End
      Begin VB.Menu mnuleer1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuReset 
         Caption         =   "Reset all"
      End
      Begin VB.Menu mnuleer2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSpeichern 
         Caption         =   "Speichern"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuSpeichernU 
         Caption         =   "Speichern unter..."
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuLaden 
         Caption         =   "Laden"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuleer3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEnd 
         Caption         =   "Beenden"
      End
   End
   Begin VB.Menu mnuZonen 
      Caption         =   "Zonen"
      Begin VB.Menu mnutxtFarbe 
         Caption         =   "Textfarbe"
      End
   End
   Begin VB.Menu mnuEvent 
      Caption         =   "Event"
      Begin VB.Menu mnuDevine 
         Caption         =   "Definieren"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'========================================================================
'====                                                                ====
'====                 Projekt: GameBoy Advance - Map                 ====
'====                 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                 ====
'====                                                                ====
'====                    Automatisation der Karte                    ====
'====                                                                ====
'========================================================================
'====                                                                ====
'==== Firma                  : EMV's                                 ====
'==== Ersteller/Programeur   : Brönimann Florian / Zanella David                         ====
'==== Version                : 1.1           Datum/Date: 04.10.2004  ====
'====                                                                ====
'====----------------------------------------------------------------====
'====                                                                ====
'==== Ziel/But:                                                      ====
'==== ---------                                                      ====
'==== Zonen und die dazugehöriegen Events/Menus leicht erstellbar    ====
'==== machen. Zudem die Texte der Menupunkte für den Endnutzer       ====
'==== leicht erstellbar und barbeitbar machen.                       ====
'====                                                                ====
'========================================================================

Option Explicit

'definieren der gebrauchten Variablen
Dim Reihenfolge As Integer
Dim on_off      As Integer
Dim X_start     As Integer
Dim Y_start     As Integer
Dim X_end       As Integer
Dim Y_end       As Integer
Dim X_now       As Integer
Dim Y_now       As Integer
Dim Gespeichert As Integer
Dim Pfahd       As String

' Speicherung von den koordinaten und zuweisung einer nummer
Private Sub cmdDifine_Click()
   
    ' Event Vorhanden ? (muss zuerst existieren, bevor man eine Zone Definiert
    If event_exist = 1 Then
        
        'Feststellen das nach abspeichern Weitergearbeitet wurde.
        Gespeichert = 0
        
        ' Haubtform ausschalten
        Form1.Enabled = False
        
        ' Koordinaten richtig aneinander reihen (zuerst ecke oben links und dann unten rechts)
        ' Vergleich welche koordinate  grösser ist und dementsprechend an start_Y oder end_Y abspeichern
        If (Y_end > Y_start) Then
            Data(data_counter).start_Y = Y_start / 15
            Data(data_counter).end_Y = Y_end / 15
        Else
            Data(data_counter).start_Y = Y_end / 15
            Data(data_counter).end_Y = Y_start / 15
        End If
           
        ' Vergleich welche koordinate  grösser ist und dementsprechend an start_X oder end_X abspeichern
        If (X_end > X_start) Then
            Data(data_counter).start_X = X_start / 15
            Data(data_counter).end_X = X_end / 15
        Else
            Data(data_counter).start_X = X_end / 15
            Data(data_counter).end_X = X_start / 15
        End If
        
        ' Eventauswahl einblenden
        Menuauswahl.Visible = True
        ' Devinierungsknopf ausschalten (eine zone = ein event und nicht mehr)
        cmdDifine.Enabled = False
    
    ' Fals kein Event Vorhanden ist Fehlermeldung anziegen
    Else
         MsgBox "Sie müssen zuerst Event-menüs Deklarieren (siehe menu -> Event -> Definieren)", vbCritical, "Error !"
    End If
End Sub

' Event definieren:
Private Sub cmdEvent_Click()
    ' Bei Beendigung Frage zum Abspeichern aufrufen
    Gespeichert = 0
    ' Devinirungsform anzeigen und Haubtform desaktivieren
    Form1.Enabled = False
    Define.Visible = True
End Sub

'definieren der Variablen am Anfang des Programmes
Private Sub Form_Load()
    Reihenfolge = 0         ' inizalisiert das die Signal Shape zeichnen
    on_off = 0              ' inizialisiert ob Signal gezeichnet wirt oder nicht
    event_virtual = -1      ' inizialisiert den rechts klick (ladet Menuauswahl mit richtiger anzeige)
    Gespeichert = 1         ' "Speicherung noch nicht erfolgt" setzen
    Pfahd = ""              ' inizialisierung des Speicherpfades
    Call reset              ' setzt alle Variablen auf 0
End Sub

' wenn man Programm Beendet Kontroliert es ob man abgespeichert hat
Private Sub Form_Unload(Cancel As Integer)
    ' wenn nicht abgespeichert Frage ob man Speichern will
    If Gespeichert = 0 Then
        If vbYes = MsgBox("ACHTUNG, Änderungen wurden nicht gespeichert ! Sollen Daten Gespeichert Werden ?", vbYesNo, "Speichern ?") Then
            Call speichern ' Abspeichern
        End If
    End If

End Sub

'Anzeige der Koordinaten auf dem bild mit der maus (ToolTipText)
Private Sub ImgBild_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Koordinaten in Pixel umrechnen
    ImgBild.ToolTipText = X / 15 & ", " & Y / 15
    Y_now = Y
    X_now = X
    
    'Aufrufen der funtion die feststelt ob Quader gezeichnet werden soll
    Call drann
End Sub

'Speicherung der Koordinaten sobalt man klickt
Private Sub ImgBild_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Beim erster Klick
    If (Reihenfolge = 0) Then
        Reihenfolge = 1         'Reihenfolge ändern (nächster Klick -> Zweiter Klick)
        X_start = X
        Y_start = Y
        on_off = 1              'Zeichnenmodus einschalten
        Anzeige1.Caption = "Start: X=" & X / 15 & " ; Y=" & Y / 15
        cmdDifine.Enabled = False
    
    'Beim Zweiter klick
    Else
        Reihenfolge = 0             'Reihenfolge ändern (nächster Klick -> erster Klick)
        X_end = X
        Y_end = Y
        on_off = 2                  'Zeichnenmodus noch einmal durchlaufen lassen und auschalten
        cmdDifine.Enabled = True    'Knopf zum definieren der Zone einschalten
        Anzeige2.Caption = "Stopp: X=" & X / 15 & " ; Y=" & Y / 15
        cmdDifine.SetFocus          'Focus Definirungsknopf übergeben das man nur noch enter drücken muss
    End If
    Call drann                      'aufruf der funktion zum feststellen wer drann ist und dann zeichnen
End Sub

' Bei Klick auf eine Definierte Zone:
Private Sub lblDescription_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Bei rechtsklick auf eine Zone:
    If Button = vbRightButton Then
        event_virtual = Index       ' Speichern der Zonen-Nummer
        Form1.Enabled = False       ' Eingaben in der Grundschabe Verhindern
        Zonenbearbeitung.Visible = True  ' Änderung der Zone einleiten
        
    'Bei Rechtsklick neue Zone Zeichen:
    Else
        'Beim erster Klick
        If (Reihenfolge = 0) Then
           
            ' Speichern der Koordinaten des Klicks in Pixel
            X_start = X + Data(Index).start_X * 15
            Y_start = Y + Data(Index).start_Y * 15
            
            Reihenfolge = 1         'Reihenfolge ändern (nächster Klick -> Zweiter Klick)
            on_off = 1              'Zeichnenmodus einschalten
            
            Anzeige1.Caption = "Start: X=" & X / 15 + Data(Index).start_X & " ; Y=" & Y / 15 + Data(Index).start_Y
            cmdDifine.Enabled = False   ' Knopf aussschalten
            
        'Beim Zweiter klick
        Else
        
            ' Speichern der Koordinaten des Klicks in Pixel
            X_end = X + Data(Index).start_X * 15
            Y_end = Y + Data(Index).start_Y * 15
            
            Reihenfolge = 0             'Reihenfolge ändern (nächster Klick -> erster Klick)
            on_off = 2                  'Zeichnenmodus noch einmal durchlaufen lassen und auschalten
            
            Anzeige2.Caption = "Stopp: X=" & X / 15 + Data(Index).start_X & " ; Y=" & Y / 15 + Data(Index).start_Y
            cmdDifine.Enabled = True    'Knopf zum definieren der Zone einschalten
            cmdDifine.SetFocus          'Focus Definirungsknopf übergeben das man nur noch enter drücken muss
        End If
        
        Call drann                      'aufruf der funktion zum feststellen wer drann ist und dann zeichnen
    End If
End Sub

' Anzeige der zone + ToolTipText auf dem Bild bei Bewegen der Maus
Private Sub lblDescription_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Koordinaten in Pixel umrechnen
    lblDescription(Index).ToolTipText = X / 15 + Data(Index).start_X & ", " & Y / 15 + Data(Index).start_Y
    Y_now = Y + Data(Index).start_Y * 15
    X_now = X + Data(Index).start_X * 15
    
    'Aufrufen der funtion die feststelt ob Quader gezeichnet werden soll
    Call drann
End Sub

' Zonen einen Event zuweisen:
Private Sub mnuDevine_Click()
    Gespeichert = 0
    Define.Visible = True 'Dazugehörige Form laden (Define)
End Sub

'Programm beenden
Private Sub mnuEnd_Click()
    Unload Me
End Sub



'Textdatei laden
Private Sub mnuLaden_Click()
    ' Gebraucht Variablen Deklarieren
    Dim line_end        As Integer
    Dim line_counter    As Integer
    Dim line_number     As Integer
    Dim line_space      As Integer
    Dim line_anzahl     As Integer
    Dim line_diverenz   As Integer
    
    ' Wichtigsten Variablen Devinieren
    line_counter = 2
    line_diverenz = 0
    
    cmDatei.ShowOpen
     
    ' Wenn keine Datei Selektioniert wurde Laden nicht ausführen:
    ' Sollte man sich verklickt haben muss man noch Bestätigen das man die zonen die bis jetzt deviniert wurden auch nicht will
    If cmDatei.FileName <> "" Then
        If MsgBox("Achtung, Zonen die bis jetzt bearbeitet wurden gehen verlohren, sind sie sicher das sie das wollen ?", vbYesNo, "Achtung !!!") = vbYes Then
            
            Pfahd = cmDatei.FileName 'Pfahd für ein schnelles apspeichern speichern

            Call reset ' Eingabevarialen reseten
            
            '---------------------- Events laden -------------------
            Do
                'linie in Text-Objekt einlesen
                txtdatei.text = ReadLine(cmDatei.FileName, line_counter)
            
                'nicht gleich ende der linie
                If Len(txtdatei.text) <> 2 Then
                
                    'initialisierung der variablen
                    counter = 9
                    line_end = 0
                    line_number = 1
                    
                    'begin der suchschlaufe
                    Do
                        'text selektionieren
                        txtdatei.SelStart = Len(txtdatei.text) - counter
                        txtdatei.SelLength = 1
                        
                        ' ein "\n" (Zeilenumbruch in C) durch einen Realen Zeilenumbruch für VB ersetzen
                        If txtdatei.SelText = "\" Then
                            txtdatei.SelLength = 2
                            If txtdatei.SelText = "\n" Then
                                txtdatei.SelText = Chr(13) & Chr(10)
                            End If
                        End If
                        
                        'selektionierter text  = " ?
                        If txtdatei.SelText = Chr$(34) Then
                            'Start der Selektion des Textes
                            txtdatei.SelStart = Len(txtdatei.text) - (counter - 1)
                            
                            'erste eingabe (event.text) von hinten speichern + eventnummer:
                            If line_number = 1 Then
                                txtdatei.SelLength = counter - 9                    ' Länge des zu selektionierenden textes = Anzahl gezählte Buchstaben - 8 (--->",NULL}<--- = 8 Zeichen) - 1 (" vom Anfang der Textzeile)
                                event_(line_counter - 2).Number = line_counter - 2  ' Linien von oben nach unten gezählt - die schon vorhandenen (einleitung + beginnen der zählung mit 0)
                                event_(line_counter - 2).text = txtdatei.SelText
                                line_space = counter                                ' Speicherung der schon von hinten nach vorn abgezählten zeichen
                                counter = counter + 3                               ' Drei Zeichen die da sind ( --->","<--- weiterzählen)
                                line_number = 2                                     ' Erkennen das als nächstes Titel eingelesen wird
                            
                            'zweite eingabe (event_titel) von hinten einlesen und spiechern
                            'schlaufenende markieren
                            Else
                                txtdatei.SelLength = counter - line_space - 3       ' Länge des zu selektionierenden textes = Anzahl gezählte Buchstaben - länge des schon eingelesenr textes - zeichen zwieschen den textzeilen (--->","<---)
                                event_(line_counter - 2).titel = txtdatei.SelText
                                line_end = 1                                        ' ächste eingelese linie = event_Text oder data_nr
                            End If
                        Else
                            counter = counter + 1       'nächster buchstabe
                        End If
                    Loop Until line_end = 1             'Linie zu ende ?
                    line_counter = line_counter + 1     'nächste Linie
                End If
            
                event_exist = 1                         'devinieren zulassen
            Loop Until Len(txtdatei.text) = 2           'ende des Event-Blockes
            
            'Anpassung der Variablen (Leere Zwischenlinie + Einleitung)
            event_counter = line_counter - 2    'anzahl event's abspeichern
            line_counter = line_counter + 3     'leeren und unwichtigen Zwischenlinien überspringen
            line_anzahl = line_counter          'abstand zwischen Data-Block und File Anfang
             
            '---------------------- Datas laden -------------------
            Do
                'linie in txt einlesen
                txtdatei.text = ReadLine(cmDatei.FileName, line_counter)
              
                'nicht gleich ende der linie
                If Len(txtdatei.text) <> 2 Then
                   
                    'initialisierung der variablen
                    counter = 3
                    line_end = 0
                    line_number = 1
                    
                    'begin der suchschlaufe
                    Do
                        'text selektionieren
                        txtdatei.SelStart = Len(txtdatei.text) - counter
                        txtdatei.SelLength = 1
                        
                        'selektionierter text  = "," oder = "{"?
                        If txtdatei.SelText = "," Or txtdatei.SelText = "{" Then
                            txtdatei.SelStart = Len(txtdatei.text) - counter + 1
                            
                            
                            'erste Eingabe (Data.Numer) von hinten speichern + eventnummer:
                            If line_number = 1 Then
                                txtdatei.SelLength = counter - 3
                                Data(line_counter - line_anzahl).Number = txtdatei.SelText
                                lblDescription(line_counter - line_anzahl).Caption = txtdatei.SelText & " - " & event_(line_counter - line_anzahl).titel
                                line_space = counter
                                line_number = 2
                            
                            ' Volgende Data einlesen und speichern
                            Else
                                ' Datei selektionieren (länge des gesamten - länge des schon gelesenen - das Kama)
                                txtdatei.SelLength = counter - line_space - 1
                                                      
                                'zweite Eingabe (Data.end_Y) von hinten einlesen und spiechern
                                If line_number = 2 Then
                                    Data(line_counter - line_anzahl).end_Y = txtdatei.SelText
                                    line_number = 3
                                'drite Eingabe (Data.end_X) von hinten einlesen und spiechern
                                ElseIf line_number = 3 Then
                                    Data(line_counter - line_anzahl).end_X = txtdatei.SelText
                                    line_number = 4
                                'vierte eingabe (Data.start_Y) von hinten einlesen und spiechern
                                ElseIf line_number = 4 Then
                                    Data(line_counter - line_anzahl).start_Y = txtdatei.SelText
                                    line_number = 5
                                'Letzte eingabe (Data.start_X) von hinten einlesen und spiechern
                                'schlaufenende markieren
                                Else
                                    Data(line_counter - line_anzahl).start_X = txtdatei.SelText
                                    line_end = 1
                                End If
                                
                                ' Speichern der schon gelesenen Buchstaben
                                line_space = counter
                                
                            End If
                            
                            'nächster buchstabe
                            counter = counter + 1
                        Else
                            counter = counter + 1 'nächster buchstabe
                        End If
                    
                    'Schleife beenden wenn line_end auf 1 gesetzt wirt
                    Loop Until line_end = 1
                    
                    'Eine Lienie weiter gehen
                    line_counter = line_counter + 1
                End If
            
            'Sobalt "};" eigelesen wirt Schlaufen Ende
            Loop Until Len(txtdatei.text) = 2
            
            'Anzahl Data's = Gezählte lienien - (Leere lienien + lienien die von Event gebraucht werden)
            data_counter = line_counter - line_anzahl
            
            'Eingelesene Daten Anzeigen
            For counter = 0 To data_counter - 1
                Call Anzeige
            Next
        End If
    End If
End Sub

'Bild zu den Zonen Wächseln
Private Sub mnuNewImg_Click()
    
    '"Datei öffnen" - Fenster öffnen
    cmSource.ShowOpen
    
    'Wenn eine eingabe Statgefunden hat:
    If cmSource.FileName <> "" Then
        
        ' Bild anzeigen
        ImgBild.Picture = LoadPicture(cmSource.FileName)
        
        'Variablen inizalisieren
        Reihenfolge = 0         ' inizalisiert das die Signal Shape zeichnen
        on_off = 0              ' inizialisiert ob Signal gezeichnet wirt oder nicht
        event_virtual = -1      ' inizialisiert den rechts klick (ladet Menuauswahl mit richtiger anzeige)
        Gespeichert = 1         ' "Speicherung noch nicht erfolgt" setzen
        Pfahd = ""              ' inizialisierung des Speicherpfades
        Call reset              ' setzt alle Variablen auf 0
    End If
End Sub

' feststellen wer an der reihe ist, respektiv, ob Signal-Quader geziechnet werden muss
Private Sub drann()
    
    ' on_off auf 1 = Signalquader wirt mit den aktuellen Koordinaten gezeichnet
    If (on_off = 1) Then
        Call zeichnen
    
    ' on_off auf 2 = Signalquader wirt mit denn aktuellen Koordinaten gezeichnet
    '                und schaltet es dann on_off aus (on_off = 0).
    ElseIf (on_off = 2) Then
        on_off = 0
        Call zeichnen
    End If
    
End Sub

'Signalquader zeichnen
Sub zeichnen()
    ' Koordinaten richtig zeichnen (erster Klick <> Koordinate oben links in der ecke der Zone)
    ' Feststellen welche Koorinate grösser ist und dementsprechend Höhe und Y Koordinate definieren
    If (Y_now > Y_start) Then
        Signal.Top = Y_start + ImgBild.Top  'imgBild.top muss dazugezählt werden da Y-Koordinate von der Linken- Operen Ecke des Form genommen wirt
        Signal.Height = Y_now - Y_start
    Else
        Signal.Top = Y_now + ImgBild.Top    'imgBild.top muss dazugezählt werden da Y-Koordinate von der Linken- Operen Ecke des Form genommen wirt
        Signal.Height = Y_start - Y_now
    End If
           
        ' Feststellen welche Koorinate grösser ist und dementsprechend Breite und Y Koordinate definieren
    If (X_now > X_start) Then
        Signal.Left = X_start + ImgBild.Left 'imgBild.left muss dazugezählt werden da X-Koordinate von der Linken- Operen Ecke des Form genommen wirt
        Signal.Width = X_now - X_start
    Else
        Signal.Left = X_now + ImgBild.Left   'imgBild.left muss dazugezählt werden da X-Koordinate von der Linken- Operen Ecke des Form genommen wirt
        Signal.Width = X_start - X_now
    End If
End Sub

Sub Anzeige()
    
    ' Zone + Text kann man sehen
    zone(counter).Visible = True
    lblDescription(counter).Visible = True
    
    ' Koordinaten oben links
    zone(counter).Top = Data(counter).start_Y * 15 + ImgBild.Top
    lblDescription(counter).Top = zone(counter).Top
    
    zone(counter).Height = (Data(counter).end_Y - Data(counter).start_Y) * 15
    lblDescription(counter).Height = zone(counter).Height
    
    ' Koordinaten unten rechts
    zone(counter).Left = Data(counter).start_X * 15 + ImgBild.Left
    lblDescription(counter).Left = zone(counter).Left
    
    zone(counter).Width = (Data(counter).end_X - Data(counter).start_X) * 15
    lblDescription(counter).Width = zone(counter).Width
    
    ' Zone ist nicht gelöscht dann:
    If Data(counter).Number <> -1 Then
        ' Zonen Farbe anzeigen
        zone(counter).FillColor = event_(Data(counter).Number).Farbe
        zone(counter).BorderColor = event_(Data(counter).Number).Farbe
    End If
    
End Sub

' Alles Reseten
Private Sub mnuReset_Click()
    ' Nachfragen ob das der Benützer auch wirklich will
    If MsgBox("Sind sie sicher das sie alles löschen wollen ?", vbYesNo, "Achtung !!!") = vbYes Then
        Call reset
    End If
End Sub

' Variablen auf 0 setzen
Sub reset()
    ' Variablen in Anfangszustand setzen
    data_counter = 0
    event_counter = 0
    event_exist = 0
    
    'Events e.c.t. Löschen
    For counter = 0 To 100
        Data(counter).end_X = 0
        Data(counter).end_Y = 0
        Data(counter).start_X = 0
        Data(counter).start_Y = 0
        Data(counter).Number = 0
        zone(counter).Visible = False
        lblDescription(counter).Visible = False
        event_(counter).titel = ""
        event_(counter).text = ""
        event_(counter).Farbe = 4227327
    Next
End Sub

' Speichern wird angeklickt
Private Sub mnuSpeichern_Click()
    ' Speicherroutine aufrufen
    Call speichern
End Sub

'Speichert die Daten in ein .h Datei
Sub speichern()
    'Variablen Deklarieren
    Dim F           As Integer
    Dim counter2    As Integer
    Dim text        As Integer
    
   'Das aufrufen der Frage um zu speichern beim ausschalten deaktivieren
    Gespeichert = 1
     
    'Pointer setzen
    F = FreeFile
   
    'Dokument öffnen
    'Wenn kein Pfahd vorhanden:
    If Pfahd = "" Then
        'Fenster zur Pfahdbestimmung öffnent
        cmDatei.ShowSave
        ' in Textbox zur bearbeitung abspeichern
        txtdatei.text = cmDatei.FileName
        'Pfad Speichern
        Pfahd = cmDatei.FileName
    Else
        'Pfad in Textbox zur bearbeitung abspeichern
        txtdatei.text = Pfahd
    End If
    
    'Wenn Pfad Forhanden
    If Pfahd <> "" Then
        
        '--------------------- File Name -----------------------
        'Startposition des Scannens
        txtdatei.SelStart = Len(txtdatei.text) - 2
        'Letzten zwei Buchstaben des Pfahdes einlesen
        txtdatei.SelLength = 2
    
        'Letzen zwei Buchstaben des Pfahdes = ".h" dann so abspeichern und Dokument öffnen
        If txtdatei.SelText = ".h" Then
            Open Pfahd For Output As #F
        'Sonnst .h anfügen und Dokument öffnen
        Else
            Open Pfahd & ".h" For Output As #F
        End If
        '----------------------- Evenments -----------------------
        'Kopfzeilezeile (Anfang, definiert den Event-Strang:
        Print #F, "const EVENEMENT evenements[] = {"
        
        'event_Strang (daten):
        'Anzahl event's durchgehen und einlsen
        For counter = 0 To event_counter - 1
            'event in textbox zur bearbeitung einlesen
            txtdatei.text = event_(counter).text
            
            'Anzahl druchläufe = anzahl Buchstaben
            For counter2 = 0 To Len(txtdatei.text)
                'Coursor Setzen
                txtdatei.SelStart = counter2
                'Buchstabe einlesen
                txtdatei.SelLength = 1
                
                'Kontrolieren ob ein Lienienumbruch forhanden ist:
                If txtdatei.SelText = Chr$(13) Then
                    'Lienienumbruch durch Lienienumbruch für C ersetzen (\n)
                    txtdatei.SelText = "\n"
                End If
                
                'Kontrolle ob Selektionierter Text Zweiter teil des Zeilenumbruchs ist
                If txtdatei.SelText = Chr$(10) Then
                    'Zweiter Teil löschen
                    txtdatei.SelText = ""
                End If
            Next
            
            'Event Daten in Zeile des Dokuments einlesen
            Print #F, "    {" & Chr$(34) & event_(counter).titel & Chr$(34) & "," & Chr$(34) & txtdatei.text & Chr$(34) & ",NULL},"
        Next
         
        'Ende des Strangs einlesen:
        Print #F, "};"
        Print #F, ""
            
        '----------------------- Data -----------------------
        'Kopfzeilezeile2:
        Print #F, "const INFO infos[] = {"
             
        'data_Strang_Koordinaten
        'Alle Data-Daten durchgehen
        For counter = 0 To data_counter - 1
            'Wenn data.Number <> -1 ist dann einlesen (data.Numer -1 = Gelöschte Data, nicht einlesen)
            If Data(counter).Number <> -1 Then
                'Zeile in Dokument hinzufühgen
                Print #F, "    {" & Data(counter).start_X & "," & Data(counter).start_Y & "," & _
                Data(counter).end_X & "," & Data(counter).end_Y & "," & Data(counter).Number & "},"
            End If
        Next
        
        'Ende des Strangs einlesen:
        Print #F, "};"
        Print #F, ""
        
        'Dokument schliesen
        Close #F
    End If
End Sub

' Speichern unter wirt aufgerufen
Private Sub mnuSpeichernU_Click()
    Pfahd = ""          'Pfahd inizalisieren
    Call speichern      'Speicherrutine aufrufen
End Sub

' Farbe des Textes Ändern auf den Zonen
Private Sub mnutxtFarbe_Click()
    'Farbauswahl aufrufen
    cmSource.ShowColor
    
    'Wenn eine Farbe ausgewählt wurde
    If cmSource.CancelError <> True Then
        'Auf Alle anzeigen Anwenden (limitiert hier auf 100 )
        For counter = 0 To 100
            ' Farbe des Textes Ändern
            lblDescription(counter).ForeColor = cmSource.Color
        Next
    End If
End Sub
