VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Stazione Meteorologica"
   ClientHeight    =   7350
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   10635
   DrawWidth       =   3
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7356.941
   ScaleMode       =   0  'User
   ScaleWidth      =   10635
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timervent 
      Interval        =   1
      Left            =   720
      Top             =   5040
   End
   Begin VB.Timer Timerpal 
      Interval        =   1
      Left            =   3960
      Top             =   1080
   End
   Begin VB.Timer Timertemp 
      Interval        =   1
      Left            =   720
      Top             =   2520
   End
   Begin VB.TextBox Textvent 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1320
      TabIndex        =   19
      Text            =   "velocità vento"
      Top             =   5040
      Width           =   1455
   End
   Begin VB.TextBox Textpress 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1320
      TabIndex        =   18
      Text            =   "Pressione atm"
      Top             =   4200
      Width           =   1455
   End
   Begin VB.TextBox Textumid 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1320
      TabIndex        =   17
      Text            =   "umidità"
      Top             =   3360
      Width           =   1455
   End
   Begin VB.TextBox Texttemp 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   405
      Left            =   1320
      TabIndex        =   16
      Text            =   "temperatura"
      Top             =   2520
      Width           =   1455
   End
   Begin VB.Timer Timerperif 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   9000
      Top             =   240
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   6840
      TabIndex        =   8
      Text            =   "VENTO"
      Top             =   6720
      Width           =   1455
   End
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   2160
      Top             =   240
   End
   Begin VB.TextBox Text6 
      Height          =   285
      Left            =   6840
      TabIndex        =   7
      Text            =   "PRESSIONE"
      Top             =   6360
      Width           =   1455
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   4680
      TabIndex        =   6
      Text            =   "UMIDITA'"
      Top             =   6720
      Width           =   1455
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   9480
      Top             =   240
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   4680
      TabIndex        =   4
      Text            =   "TEMPERATURA"
      Top             =   6360
      Width           =   1455
   End
   Begin VB.Timer el_dati 
      Interval        =   1
      Left            =   8520
      Top             =   240
   End
   Begin VB.Timer oradata 
      Interval        =   1
      Left            =   8040
      Top             =   240
   End
   Begin VB.CommandButton Command7 
      Caption         =   "CHIUDI"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   8760
      TabIndex        =   5
      Top             =   6360
      Width           =   1575
   End
   Begin VB.Label Label139 
      Caption         =   "Vel Vento"
      Height          =   255
      Index           =   3
      Left            =   6120
      TabIndex        =   157
      Top             =   6720
      Width           =   735
   End
   Begin VB.Label Label139 
      Caption         =   "Press"
      Height          =   255
      Index           =   2
      Left            =   6240
      TabIndex        =   156
      Top             =   6360
      Width           =   495
   End
   Begin VB.Label Label139 
      Caption         =   "Umidità"
      Height          =   255
      Index           =   1
      Left            =   4080
      TabIndex        =   155
      Top             =   6720
      Width           =   615
   End
   Begin VB.Label Label139 
      Caption         =   "Temp"
      Height          =   255
      Index           =   0
      Left            =   4080
      TabIndex        =   154
      Top             =   6360
      Width           =   495
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Byte:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   4080
      TabIndex        =   153
      Top             =   6000
      Width           =   615
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   6
      Left            =   7200
      Picture         =   "Stazione Meteorologica.frx":0000
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   20
      Left            =   7200
      Picture         =   "Stazione Meteorologica.frx":0E12
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   19
      Left            =   8400
      Picture         =   "Stazione Meteorologica.frx":1C24
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   18
      Left            =   8400
      Picture         =   "Stazione Meteorologica.frx":2A36
      Top             =   6000
      Width           =   195
   End
   Begin VB.Line Line3 
      BorderWidth     =   3
      X1              =   600
      X2              =   3480
      Y1              =   4684.419
      Y2              =   4684.419
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   48
      Left            =   10200
      Picture         =   "Stazione Meteorologica.frx":3888
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Line Line9 
      BorderWidth     =   3
      X1              =   4560
      X2              =   10320
      Y1              =   1081.02
      Y2              =   1081.02
   End
   Begin VB.Line Line10 
      BorderWidth     =   3
      X1              =   3960
      X2              =   10320
      Y1              =   3243.06
      Y2              =   3243.06
   End
   Begin VB.Line Line7 
      BorderWidth     =   3
      X1              =   10320
      X2              =   10320
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line5 
      Index           =   6
      X1              =   9840
      X2              =   9840
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line4 
      Index           =   6
      X1              =   9360
      X2              =   9360
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line5 
      Index           =   5
      X1              =   8880
      X2              =   8880
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line4 
      Index           =   5
      X1              =   8400
      X2              =   8400
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line5 
      Index           =   4
      X1              =   7920
      X2              =   7920
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line4 
      Index           =   4
      X1              =   6960
      X2              =   6960
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line5 
      Index           =   3
      X1              =   7440
      X2              =   7440
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line4 
      Index           =   3
      X1              =   6960
      X2              =   6960
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line5 
      Index           =   2
      X1              =   6480
      X2              =   6480
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line4 
      Index           =   2
      X1              =   6000
      X2              =   6000
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line5 
      Index           =   1
      X1              =   5520
      X2              =   5520
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Line Line4 
      Index           =   1
      X1              =   5040
      X2              =   5040
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Label Label118 
      Alignment       =   2  'Center
      Caption         =   "11:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   9840
      TabIndex        =   132
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label117 
      Alignment       =   2  'Center
      Caption         =   "10:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   9360
      TabIndex        =   131
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label116 
      Alignment       =   2  'Center
      Caption         =   "9:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   8880
      TabIndex        =   130
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label115 
      Alignment       =   2  'Center
      Caption         =   "8:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   8400
      TabIndex        =   129
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label114 
      Alignment       =   2  'Center
      Caption         =   "7:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   7920
      TabIndex        =   128
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label113 
      Alignment       =   2  'Center
      Caption         =   "6:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   7440
      TabIndex        =   127
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label112 
      Alignment       =   2  'Center
      Caption         =   "5:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6960
      TabIndex        =   126
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label111 
      Alignment       =   2  'Center
      Caption         =   "4:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6480
      TabIndex        =   125
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label110 
      Alignment       =   2  'Center
      Caption         =   "3:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6000
      TabIndex        =   124
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label109 
      Alignment       =   2  'Center
      Caption         =   "2:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   5520
      TabIndex        =   123
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label108 
      Alignment       =   2  'Center
      Caption         =   "1:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   5040
      TabIndex        =   122
      Top             =   1320
      Width           =   495
   End
   Begin VB.Line Line12 
      Index           =   0
      X1              =   3960
      X2              =   10320
      Y1              =   2522.38
      Y2              =   2522.38
   End
   Begin VB.Line Line11 
      Index           =   0
      X1              =   3960
      X2              =   10320
      Y1              =   2882.72
      Y2              =   2882.72
   End
   Begin VB.Line Line13 
      Index           =   0
      X1              =   3960
      X2              =   10320
      Y1              =   2162.04
      Y2              =   2162.04
   End
   Begin VB.Line Line11 
      Index           =   1
      X1              =   3960
      X2              =   10320
      Y1              =   4924.646
      Y2              =   4924.646
   End
   Begin VB.Line Line12 
      Index           =   1
      X1              =   3960
      X2              =   10320
      Y1              =   4564.306
      Y2              =   4564.306
   End
   Begin VB.Line Line13 
      Index           =   1
      X1              =   3960
      X2              =   10320
      Y1              =   4203.966
      Y2              =   4203.966
   End
   Begin VB.Line Line5 
      BorderWidth     =   3
      Index           =   0
      X1              =   4560
      X2              =   4560
      Y1              =   1081.02
      Y2              =   5284.986
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   11
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":469A
      Top             =   4800
      Width           =   195
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   47
      Left            =   9720
      Picture         =   "Stazione Meteorologica.frx":54EC
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   2
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":62FE
      Top             =   0
      Width           =   195
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   46
      Left            =   9720
      Picture         =   "Stazione Meteorologica.frx":7150
      Top             =   720
      Width           =   1350
   End
   Begin VB.Line Line14 
      Index           =   1
      X1              =   3960
      X2              =   10320
      Y1              =   3843.626
      Y2              =   3843.626
   End
   Begin VB.Line Line14 
      Index           =   0
      X1              =   3960
      X2              =   10320
      Y1              =   1801.7
      Y2              =   1801.7
   End
   Begin VB.Line Line8 
      BorderWidth     =   3
      X1              =   3960
      X2              =   10320
      Y1              =   5284.986
      Y2              =   5284.986
   End
   Begin VB.Line Line6 
      Index           =   1
      X1              =   0
      X2              =   5520
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Label Label5 
      BackColor       =   &H00FFFFFF&
      Caption         =   "DATI GIORNALIERI:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   3960
      TabIndex        =   24
      Top             =   720
      Width           =   2175
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   45
      Left            =   8520
      Picture         =   "Stazione Meteorologica.frx":7F62
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   44
      Left            =   8520
      Picture         =   "Stazione Meteorologica.frx":8D74
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   43
      Left            =   7320
      Picture         =   "Stazione Meteorologica.frx":9B86
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   42
      Left            =   6120
      Picture         =   "Stazione Meteorologica.frx":A998
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   41
      Left            =   4920
      Picture         =   "Stazione Meteorologica.frx":B7AA
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   40
      Left            =   3720
      Picture         =   "Stazione Meteorologica.frx":C5BC
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   13
      Left            =   3720
      Picture         =   "Stazione Meteorologica.frx":D3CE
      Top             =   4320
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   12
      Left            =   3720
      Picture         =   "Stazione Meteorologica.frx":E220
      Top             =   3120
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   11
      Left            =   3720
      Picture         =   "Stazione Meteorologica.frx":F072
      Top             =   1920
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   10
      Left            =   3720
      Picture         =   "Stazione Meteorologica.frx":FEC4
      Top             =   720
      Width           =   195
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   39
      Left            =   7320
      Picture         =   "Stazione Meteorologica.frx":10D16
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   38
      Left            =   6120
      Picture         =   "Stazione Meteorologica.frx":11B28
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   37
      Left            =   4920
      Picture         =   "Stazione Meteorologica.frx":1293A
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   36
      Left            =   3720
      Picture         =   "Stazione Meteorologica.frx":1374C
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   17
      Left            =   3450
      Picture         =   "Stazione Meteorologica.frx":1455E
      Top             =   1920
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   8
      Left            =   3450
      Picture         =   "Stazione Meteorologica.frx":153B0
      Top             =   3120
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   15
      Left            =   3450
      Picture         =   "Stazione Meteorologica.frx":16202
      Top             =   4320
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   6
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":17054
      Top             =   4320
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   7
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":17EA6
      Top             =   3120
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   13
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":18CF8
      Top             =   1920
      Width           =   195
   End
   Begin VB.Line Line2 
      BorderWidth     =   3
      X1              =   600
      X2              =   3480
      Y1              =   3843.626
      Y2              =   3843.626
   End
   Begin VB.Line Line1 
      BorderWidth     =   3
      X1              =   600
      X2              =   3480
      Y1              =   3002.833
      Y2              =   3002.833
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Caption         =   "Velocità del vento"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   720
      TabIndex        =   15
      Top             =   4680
      Width           =   2655
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Caption         =   "Pressione atmosferica"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   600
      TabIndex        =   14
      Top             =   3840
      Width           =   2895
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Caption         =   "Umidità"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   720
      TabIndex        =   13
      Top             =   3000
      Width           =   2535
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      Caption         =   "Temperatura"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   840
      TabIndex        =   12
      Top             =   2160
      Width           =   2415
   End
   Begin VB.Label Label5 
      BackColor       =   &H00FFFFFF&
      Caption         =   "DATI ATTUALI:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   720
      TabIndex        =   11
      Top             =   720
      Width           =   1695
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "STATO:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   10
      Top             =   6000
      Width           =   855
   End
   Begin VB.Label Labelperif 
      Alignment       =   2  'Center
      Caption         =   "CONNESSIONE IN CORSO"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   975
      Left            =   360
      TabIndex        =   9
      Top             =   6240
      Width           =   3255
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      Height          =   375
      Left            =   2640
      Top             =   240
      Width           =   375
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   3
      Left            =   3600
      Picture         =   "Stazione Meteorologica.frx":19B4A
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   23
      Left            =   3600
      Picture         =   "Stazione Meteorologica.frx":1A95C
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   16
      Left            =   3840
      Picture         =   "Stazione Meteorologica.frx":1B76E
      Top             =   6000
      Width           =   195
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   34
      Left            =   1680
      Picture         =   "Stazione Meteorologica.frx":1C5C0
      Top             =   1920
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   32
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":1D3D2
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   31
      Left            =   1680
      Picture         =   "Stazione Meteorologica.frx":1E1E4
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   30
      Left            =   2280
      Picture         =   "Stazione Meteorologica.frx":1EFF6
      Top             =   5520
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   29
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":1FE08
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   28
      Left            =   1680
      Picture         =   "Stazione Meteorologica.frx":20C1A
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   27
      Left            =   2280
      Picture         =   "Stazione Meteorologica.frx":21A2C
      Top             =   720
      Width           =   1350
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   9
      Left            =   3450
      Picture         =   "Stazione Meteorologica.frx":2283E
      Top             =   720
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   14
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":23690
      Top             =   720
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   7
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":244E2
      Top             =   720
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   6
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":25334
      Top             =   3120
      Width           =   195
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   0
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":26186
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   8
      Left            =   9000
      Picture         =   "Stazione Meteorologica.frx":26F98
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   5
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":27DAA
      Top             =   4800
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   3
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":28BFC
      Top             =   6000
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   5
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":29A4E
      Top             =   6000
      Width           =   195
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   26
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":2A8A0
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   25
      Left            =   1200
      Picture         =   "Stazione Meteorologica.frx":2B6B2
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   24
      Left            =   2400
      Picture         =   "Stazione Meteorologica.frx":2C4C4
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   22
      Left            =   4800
      Picture         =   "Stazione Meteorologica.frx":2D2D6
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   21
      Left            =   6000
      Picture         =   "Stazione Meteorologica.frx":2E0E8
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   18
      Left            =   9600
      Picture         =   "Stazione Meteorologica.frx":2EEFA
      Top             =   6000
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   17
      Left            =   9360
      Picture         =   "Stazione Meteorologica.frx":2FD0C
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   16
      Left            =   8400
      Picture         =   "Stazione Meteorologica.frx":30B1E
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   15
      Left            =   7200
      Picture         =   "Stazione Meteorologica.frx":31930
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   14
      Left            =   6000
      Picture         =   "Stazione Meteorologica.frx":32742
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   13
      Left            =   4800
      Picture         =   "Stazione Meteorologica.frx":33554
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   12
      Left            =   3600
      Picture         =   "Stazione Meteorologica.frx":34366
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   11
      Left            =   2400
      Picture         =   "Stazione Meteorologica.frx":35178
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   10
      Left            =   1200
      Picture         =   "Stazione Meteorologica.frx":35F8A
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   9
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":36D9C
      Top             =   0
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   7
      Left            =   8400
      Picture         =   "Stazione Meteorologica.frx":37BAE
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   5
      Left            =   6000
      Picture         =   "Stazione Meteorologica.frx":389C0
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   4
      Left            =   4800
      Picture         =   "Stazione Meteorologica.frx":397D2
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   2
      Left            =   2400
      Picture         =   "Stazione Meteorologica.frx":3A5E4
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   1
      Left            =   1200
      Picture         =   "Stazione Meteorologica.frx":3B3F6
      Top             =   7200
      Width           =   1350
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   12
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":3C208
      Top             =   6600
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   10
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":3D05A
      Top             =   3600
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   4
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":3DEAC
      Top             =   2400
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   9
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":3ECFE
      Top             =   2400
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   8
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":3FB50
      Top             =   1200
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   4
      Left            =   10440
      Picture         =   "Stazione Meteorologica.frx":409A2
      Top             =   0
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   3
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":417F4
      Top             =   3600
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   1
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":42646
      Top             =   2400
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   2
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":43498
      Top             =   2400
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   1
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":442EA
      Top             =   1200
      Width           =   195
   End
   Begin VB.Image Image2 
      Height          =   1350
      Index           =   0
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":4513C
      Top             =   0
      Width           =   195
   End
   Begin VB.Image Image1 
      Height          =   1350
      Index           =   0
      Left            =   0
      Picture         =   "Stazione Meteorologica.frx":45F8E
      Top             =   0
      Width           =   195
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "DATA:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   3
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "ORA  :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   2
      Top             =   1080
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "data"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1560
      TabIndex        =   1
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Label Labelora 
      Caption         =   "ora"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   1080
      Width           =   1335
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   35
      Left            =   480
      Picture         =   "Stazione Meteorologica.frx":46DE0
      Top             =   1920
      Width           =   1350
   End
   Begin VB.Image Image3 
      Height          =   195
      Index           =   33
      Left            =   2280
      Picture         =   "Stazione Meteorologica.frx":47BF2
      Top             =   1920
      Width           =   1350
   End
   Begin VB.Label Label10 
      BackColor       =   &H8000000A&
      Caption         =   "%"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   1
      Left            =   2880
      TabIndex        =   21
      Top             =   3360
      Width           =   375
   End
   Begin VB.Label Label10 
      BackColor       =   &H8000000A&
      Caption         =   "°C"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   0
      Left            =   2880
      TabIndex        =   20
      Top             =   2520
      Width           =   375
   End
   Begin VB.Label Label10 
      BackColor       =   &H8000000A&
      Caption         =   "mB"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   2
      Left            =   2880
      TabIndex        =   22
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label10 
      BackColor       =   &H8000000A&
      Caption         =   "Km/h"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   3
      Left            =   2760
      TabIndex        =   23
      Top             =   5040
      Width           =   735
   End
   Begin VB.Label Label106 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   120
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label105 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   119
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label104 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   118
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label103 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   117
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label102 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   116
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label101 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   115
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label100 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   114
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label99 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   113
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label98 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   112
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label97 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   111
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label96 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   110
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label95 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   109
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label94 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   108
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label93 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   107
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label92 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   106
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label91 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   105
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label90 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   104
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label89 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   103
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label88 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   102
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label87 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   101
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label86 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   100
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label85 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   99
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label84 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   98
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label83 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   97
      Top             =   4560
      Width           =   495
   End
   Begin VB.Label Label82 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   96
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label81 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   95
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label80 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   94
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label79 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   93
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label78 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   92
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label77 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   91
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label76 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   90
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label75 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   89
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label74 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   88
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label73 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   87
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label72 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   86
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label71 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   85
      Top             =   4200
      Width           =   495
   End
   Begin VB.Label Label70 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   84
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label69 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   83
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label68 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   82
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label67 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   81
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label66 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   80
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label65 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   79
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label64 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   78
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label63 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   77
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label62 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   76
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label61 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   75
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label60 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   74
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label59 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   73
      Top             =   3840
      Width           =   495
   End
   Begin VB.Label Label58 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   72
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label57 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   71
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label56 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   70
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label55 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   69
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label54 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   68
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label53 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   67
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label52 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   66
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label51 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   65
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label50 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   64
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label49 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   63
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label48 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   62
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label47 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   61
      Top             =   2880
      Width           =   495
   End
   Begin VB.Label Label46 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   60
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label45 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   59
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label44 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   58
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label43 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   57
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label42 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   56
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label41 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   55
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label40 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   54
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label39 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   53
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label38 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   52
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label37 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   51
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label36 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   50
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label35 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   49
      Top             =   2520
      Width           =   495
   End
   Begin VB.Label Label34 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   48
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   47
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label32 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   46
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label31 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   45
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label30 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   44
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label29 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   43
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label28 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   42
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label27 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   41
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label26 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   40
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label25 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   39
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label24 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   38
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label23 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   37
      Top             =   2160
      Width           =   495
   End
   Begin VB.Label Label22 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9840
      TabIndex        =   36
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label21 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   9360
      TabIndex        =   35
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label20 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8880
      TabIndex        =   34
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label19 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   8400
      TabIndex        =   33
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label18 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7920
      TabIndex        =   32
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   7440
      TabIndex        =   31
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6960
      TabIndex        =   30
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6480
      TabIndex        =   29
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6000
      TabIndex        =   28
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5520
      TabIndex        =   27
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5040
      TabIndex        =   26
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      Caption         =   "--"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   4560
      TabIndex        =   25
      Top             =   1800
      Width           =   495
   End
   Begin VB.Label Label107 
      Alignment       =   2  'Center
      Caption         =   "00:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   4560
      TabIndex        =   121
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label Label130 
      Alignment       =   2  'Center
      Caption         =   "23:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   9840
      TabIndex        =   144
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label129 
      Alignment       =   2  'Center
      Caption         =   "22:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   9360
      TabIndex        =   143
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label128 
      Alignment       =   2  'Center
      Caption         =   "21:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   8880
      TabIndex        =   142
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label127 
      Alignment       =   2  'Center
      Caption         =   "20:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   8400
      TabIndex        =   141
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label126 
      Alignment       =   2  'Center
      Caption         =   "19:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   7920
      TabIndex        =   140
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label125 
      Alignment       =   2  'Center
      Caption         =   "18:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   7440
      TabIndex        =   139
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label124 
      Alignment       =   2  'Center
      Caption         =   "17:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6960
      TabIndex        =   138
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label123 
      Alignment       =   2  'Center
      Caption         =   "16:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6480
      TabIndex        =   137
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label122 
      Alignment       =   2  'Center
      Caption         =   "15:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   6000
      TabIndex        =   136
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label121 
      Alignment       =   2  'Center
      Caption         =   "14:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   5520
      TabIndex        =   135
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label120 
      Alignment       =   2  'Center
      Caption         =   "13:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   5040
      TabIndex        =   134
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label119 
      Alignment       =   2  'Center
      Caption         =   "12:00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   4560
      TabIndex        =   133
      Top             =   3360
      Width           =   495
   End
   Begin VB.Label Label138 
      Alignment       =   2  'Center
      Caption         =   "VKm/h"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3840
      TabIndex        =   152
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label137 
      Alignment       =   2  'Center
      Caption         =   "P mB"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3960
      TabIndex        =   151
      Top             =   4560
      Width           =   615
   End
   Begin VB.Label Label136 
      Alignment       =   2  'Center
      Caption         =   "U %"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3960
      TabIndex        =   150
      Top             =   4200
      Width           =   615
   End
   Begin VB.Label Label135 
      Alignment       =   2  'Center
      Caption         =   "T °C"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3960
      TabIndex        =   149
      Top             =   3840
      Width           =   615
   End
   Begin VB.Label Label134 
      Alignment       =   2  'Center
      Caption         =   "VKm/h"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3840
      TabIndex        =   148
      Top             =   2880
      Width           =   855
   End
   Begin VB.Label Label133 
      Alignment       =   2  'Center
      Caption         =   "P mB"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3960
      TabIndex        =   147
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label132 
      Alignment       =   2  'Center
      Caption         =   "U %"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3960
      TabIndex        =   146
      Top             =   2160
      Width           =   615
   End
   Begin VB.Label Label131 
      Alignment       =   2  'Center
      Caption         =   "T °C"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   3960
      TabIndex        =   145
      Top             =   1800
      Width           =   615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim perif, btemp, bumid, bpress, bvent As String
Dim nibt1, nibt0, nibu1, nibu0, nibp1, nibp0, nibv1, nibv0 As String
Dim cont As Integer


Private Sub Command1_Click()
DlPortWritePortUchar "&h378", Text1.Text

End Sub

Private Sub Command2_Click()
Text1.Text = DlPortReadPortUchar(&H379)




End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()
Frame2.Visible = True
End Sub

Private Sub Command7_Click()
DlPortWritePortUchar "&h378", 0
End
End Sub

Private Sub el_dati_Timer()
If cont = 410 Then
cont = 0
Else
cont = cont + 1
End If
If cont = 1 Then
nibt0 = 0
nibt1 = 0
nibu0 = 0
nibu1 = 0
nibp0 = 0
nibp1 = 0
End If
If cont = 2 Then
DlPortWritePortUchar "&h378", 0
End If
If cont = 3 Then
DlPortWritePortUchar "&h378", 8
End If
If cont = 12 Then
DlPortWritePortUchar "&h378", 24
End If
If cont = 32 Then
DlPortWritePortUchar "&h378", 0
End If
If cont = 82 Then
nibt0 = DlPortReadPortUchar(&H379)
End If
If cont = 83 Then
DlPortWritePortUchar "&h378", 32
End If
If cont = 93 Then
nibt1 = DlPortReadPortUchar(&H379)
End If

If cont = 99 Then
DlPortWritePortUchar "&h378", 1
End If
If cont = 100 Then
DlPortWritePortUchar "&h378", 9
End If
If cont = 110 Then
DlPortWritePortUchar "&h378", 25
End If
If cont = 130 Then
DlPortWritePortUchar "&h378", 1
End If
If cont = 180 Then
nibu0 = DlPortReadPortUchar(&H379)
End If
If cont = 181 Then
DlPortWritePortUchar "&h378", 33
End If
If cont = 191 Then
nibu1 = DlPortReadPortUchar(&H379)
End If

If cont = 192 Then
DlPortWritePortUchar "&h378", 2
End If
If cont = 200 Then
DlPortWritePortUchar "&h378", 10
End If
If cont = 210 Then
DlPortWritePortUchar "&h378", 26
End If
If cont = 230 Then
DlPortWritePortUchar "&h378", 2
End If
If cont = 280 Then
nibp0 = DlPortReadPortUchar(&H379)
End If
If cont = 281 Then
DlPortWritePortUchar "&h378", 34
End If
If cont = 291 Then
nibp1 = DlPortReadPortUchar(&H379)
End If

If cont = 292 Then
DlPortWritePortUchar "&h378", 3
End If
If cont = 300 Then
DlPortWritePortUchar "&h378", 11
End If
If cont = 310 Then
DlPortWritePortUchar "&h378", 27
End If
If cont = 330 Then
DlPortWritePortUchar "&h378", 3
End If
If cont = 380 Then
nibv0 = DlPortReadPortUchar(&H379)
End If
If cont = 381 Then
DlPortWritePortUchar "&h378", 35
End If
If cont = 391 Then
nibv1 = DlPortReadPortUchar(&H379)
End If




If cont = 392 Then
If nibt0 = 7 Then
nibt0 = "0000"
Else
If nibt0 = 15 Then
nibt0 = "0001"
Else
If nibt0 = 23 Then
nibt0 = "0010"
Else
If nibt0 = 31 Then
nibt0 = "0011"
Else
If nibt0 = 39 Then
nibt0 = "0100"
Else
If nibt0 = 47 Then
nibt0 = "0101"
Else
If nibt0 = 55 Then
nibt0 = "0110"
Else
If nibt0 = 63 Then
nibt0 = "0111"
Else
If nibt0 = 71 Then
nibt0 = "1000"
Else
If nibt0 = 79 Then
nibt0 = "1001"
Else
If nibt0 = 87 Then
nibt0 = "1010"
Else
If nibt0 = 95 Then
nibt0 = "1011"
Else
If nibt0 = 103 Then
nibt0 = "1100"
Else
If nibt0 = 111 Then
nibt0 = "1101"
Else
If nibt0 = 119 Then
nibt0 = "1110"
Else
If nibt0 = 127 Then
nibt0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 393 Then
If nibt1 = 7 Then
nibt1 = "0000"
Else
If nibt1 = 15 Then
nibt1 = "0001"
Else
If nibt1 = 23 Then
nibt1 = "0010"
Else
If nibt1 = 31 Then
nibt1 = "0011"
Else
If nibt1 = 39 Then
nibt1 = "0100"
Else
If nibt1 = 47 Then
nibt1 = "0101"
Else
If nibt1 = 55 Then
nibt1 = "0110"
Else
If nibt1 = 63 Then
nibt1 = "0111"
Else
If nibt1 = 71 Then
nibt1 = "1000"
Else
If nibt1 = 79 Then
nibt1 = "1001"
Else
If nibt1 = 87 Then
nibt1 = "1010"
Else
If nibt1 = 95 Then
nibt1 = "1011"
Else
If nibt1 = 103 Then
nibt1 = "1100"
Else
If nibt1 = 111 Then
nibt1 = "1101"
Else
If nibt1 = 119 Then
nibt1 = "1110"
Else
If nibt1 = 127 Then
nibt1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 394 Then
If nibt0 = 0 Then
nibt0 = "0000"
Else
If nibt0 = 8 Then
nibt0 = "0001"
Else
If nibt0 = 16 Then
nibt0 = "0010"
Else
If nibt0 = 24 Then
nibt0 = "0011"
Else
If nibt0 = 32 Then
nibt0 = "0100"
Else
If nibt0 = 40 Then
nibt0 = "0101"
Else
If nibt0 = 48 Then
nibt0 = "0110"
Else
If nibt0 = 56 Then
nibt0 = "0111"
Else
If nibt0 = 64 Then
nibt0 = "1000"
Else
If nibt0 = 72 Then
nibt0 = "1001"
Else
If nibt0 = 80 Then
nibt0 = "1010"
Else
If nibt0 = 88 Then
nibt0 = "1011"
Else
If nibt0 = 96 Then
nibt0 = "1100"
Else
If nibt0 = 104 Then
nibt0 = "1101"
Else
If nibt0 = 112 Then
nibt0 = "1110"
Else
If nibt0 = 120 Then
nibt0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 395 Then
If nibt1 = 0 Then
nibt1 = "0000"
Else
If nibt1 = 8 Then
nibt1 = "0001"
Else
If nibt1 = 16 Then
nibt1 = "0010"
Else
If nibt1 = 24 Then
nibt1 = "0011"
Else
If nibt1 = 32 Then
nibt1 = "0100"
Else
If nibt1 = 40 Then
nibt1 = "0101"
Else
If nibt1 = 48 Then
nibt1 = "0110"
Else
If nibt1 = 56 Then
nibt1 = "0111"
Else
If nibt1 = 64 Then
nibt1 = "1000"
Else
If nibt1 = 72 Then
nibt1 = "1001"
Else
If nibt1 = 80 Then
nibt1 = "1010"
Else
If nibt1 = 88 Then
nibt1 = "1011"
Else
If nibt1 = 96 Then
nibt1 = "1100"
Else
If nibt1 = 104 Then
nibt1 = "1101"
Else
If nibt1 = 112 Then
nibt1 = "1110"
Else
If nibt1 = 120 Then
nibt1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 396 Then
If nibu0 = 7 Then
nibu0 = "0000"
Else
If nibu0 = 15 Then
nibu0 = "0001"
Else
If nibu0 = 23 Then
nibu0 = "0010"
Else
If nibu0 = 31 Then
nibu0 = "0011"
Else
If nibu0 = 39 Then
nibu0 = "0100"
Else
If nibu0 = 47 Then
nibu0 = "0101"
Else
If nibu0 = 55 Then
nibu0 = "0110"
Else
If nibu0 = 63 Then
nibu0 = "0111"
Else
If nibu0 = 71 Then
nibu0 = "1000"
Else
If nibu0 = 79 Then
nibu0 = "1001"
Else
If nibu0 = 87 Then
nibu0 = "1010"
Else
If nibu0 = 95 Then
nibu0 = "1011"
Else
If nibu0 = 103 Then
nibu0 = "1100"
Else
If nibu0 = 111 Then
nibu0 = "1101"
Else
If nibu0 = 119 Then
nibu0 = "1110"
Else
If nibu0 = 127 Then
nibu0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 397 Then
If nibu1 = 7 Then
nibu1 = "0000"
Else
If nibu1 = 15 Then
nibu1 = "0001"
Else
If nibu1 = 23 Then
nibu1 = "0010"
Else
If nibu1 = 31 Then
nibu1 = "0011"
Else
If nibu1 = 39 Then
nibu1 = "0100"
Else
If nibu1 = 47 Then
nibu1 = "0101"
Else
If nibu1 = 55 Then
nibu1 = "0110"
Else
If nibu1 = 63 Then
nibu1 = "0111"
Else
If nibu1 = 71 Then
nibu1 = "1000"
Else
If nibu1 = 79 Then
nibu1 = "1001"
Else
If nibu1 = 87 Then
nibu1 = "1010"
Else
If nibu1 = 95 Then
nibu1 = "1011"
Else
If nibu1 = 103 Then
nibu1 = "1100"
Else
If nibu1 = 111 Then
nibu1 = "1101"
Else
If nibu1 = 119 Then
nibu1 = "1110"
Else
If nibu1 = 127 Then
nibu1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 398 Then
If nibu0 = 0 Then
nibu0 = "0000"
Else
If nibu0 = 8 Then
nibu0 = "0001"
Else
If nibu0 = 16 Then
nibu0 = "0010"
Else
If nibu0 = 24 Then
nibu0 = "0011"
Else
If nibu0 = 32 Then
nibu0 = "0100"
Else
If nibu0 = 40 Then
nibu0 = "0101"
Else
If nibu0 = 48 Then
nibu0 = "0110"
Else
If nibu0 = 56 Then
nibu0 = "0111"
Else
If nibu0 = 64 Then
nibu0 = "1000"
Else
If nibu0 = 72 Then
nibu0 = "1001"
Else
If nibu0 = 80 Then
nibu0 = "1010"
Else
If nibu0 = 88 Then
nibu0 = "1011"
Else
If nibu0 = 96 Then
nibu0 = "1100"
Else
If nibu0 = 104 Then
nibu0 = "1101"
Else
If nibu0 = 112 Then
nibu0 = "1110"
Else
If nibu0 = 120 Then
nibu0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 399 Then
If nibu1 = 0 Then
nibu1 = "0000"
Else
If nibu1 = 8 Then
nibu1 = "0001"
Else
If nibu1 = 16 Then
nibu1 = "0010"
Else
If nibu1 = 24 Then
nibu1 = "0011"
Else
If nibu1 = 32 Then
nibu1 = "0100"
Else
If nibu1 = 40 Then
nibu1 = "0101"
Else
If nibu1 = 48 Then
nibu1 = "0110"
Else
If nibu1 = 56 Then
nibu1 = "0111"
Else
If nibu1 = 64 Then
nibu1 = "1000"
Else
If nibu1 = 72 Then
nibu1 = "1001"
Else
If nibu1 = 80 Then
nibu1 = "1010"
Else
If nibu1 = 88 Then
nibu1 = "1011"
Else
If nibu1 = 96 Then
nibu1 = "1100"
Else
If nibu1 = 104 Then
nibu1 = "1101"
Else
If nibu1 = 112 Then
nibu1 = "1110"
Else
If nibu1 = 120 Then
nibu1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 400 Then
If nibp0 = 7 Then
nibp0 = "0000"
Else
If nibp0 = 15 Then
nibp0 = "0001"
Else
If nibp0 = 23 Then
nibp0 = "0010"
Else
If nibp0 = 31 Then
nibp0 = "0011"
Else
If nibp0 = 39 Then
nibp0 = "0100"
Else
If nibp0 = 47 Then
nibp0 = "0101"
Else
If nibp0 = 55 Then
nibp0 = "0110"
Else
If nibp0 = 63 Then
nibp0 = "0111"
Else
If nibp0 = 71 Then
nibp0 = "1000"
Else
If nibp0 = 79 Then
nibp0 = "1001"
Else
If nibp0 = 87 Then
nibp0 = "1010"
Else
If nibp0 = 95 Then
nibp0 = "1011"
Else
If nibp0 = 103 Then
nibp0 = "1100"
Else
If nibp0 = 111 Then
nibp0 = "1101"
Else
If nibp0 = 119 Then
nibp0 = "1110"
Else
If nibp0 = 127 Then
nibp0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 401 Then
If nibp1 = 7 Then
nibp1 = "0000"
Else
If nibp1 = 15 Then
nibp1 = "0001"
Else
If nibp1 = 23 Then
nibp1 = "0010"
Else
If nibp1 = 31 Then
nibp1 = "0011"
Else
If nibp1 = 39 Then
nibp1 = "0100"
Else
If nibp1 = 47 Then
nibp1 = "0101"
Else
If nibp1 = 55 Then
nibp1 = "0110"
Else
If nibp1 = 63 Then
nibp1 = "0111"
Else
If nibp1 = 71 Then
nibp1 = "1000"
Else
If nibp1 = 79 Then
nibp1 = "1001"
Else
If nibp1 = 87 Then
nibp1 = "1010"
Else
If nibp1 = 95 Then
nibp1 = "1011"
Else
If nibp1 = 103 Then
nibp1 = "1100"
Else
If nibp1 = 111 Then
nibp1 = "1101"
Else
If nibp1 = 119 Then
nibp1 = "1110"
Else
If nibp1 = 127 Then
nibp1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 402 Then
If nibp0 = 0 Then
nibp0 = "0000"
Else
If nibp0 = 8 Then
nibp0 = "0001"
Else
If nibp0 = 16 Then
nibp0 = "0010"
Else
If nibp0 = 24 Then
nibp0 = "0011"
Else
If nibp0 = 32 Then
nibp0 = "0100"
Else
If nibp0 = 40 Then
nibp0 = "0101"
Else
If nibp0 = 48 Then
nibp0 = "0110"
Else
If nibp0 = 56 Then
nibp0 = "0111"
Else
If nibp0 = 64 Then
nibp0 = "1000"
Else
If nibp0 = 72 Then
nibp0 = "1001"
Else
If nibp0 = 80 Then
nibp0 = "1010"
Else
If nibp0 = 88 Then
nibp0 = "1011"
Else
If nibp0 = 96 Then
nibp0 = "1100"
Else
If nibp0 = 104 Then
nibp0 = "1101"
Else
If nibp0 = 112 Then
nibp0 = "1110"
Else
If nibp0 = 120 Then
nibp0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 403 Then
If nibp1 = 0 Then
nibp1 = "0000"
Else
If nibp1 = 8 Then
nibp1 = "0001"
Else
If nibp1 = 16 Then
nibp1 = "0010"
Else
If nibp1 = 24 Then
nibp1 = "0011"
Else
If nibp1 = 32 Then
nibp1 = "0100"
Else
If nibp1 = 40 Then
nibp1 = "0101"
Else
If nibp1 = 48 Then
nibp1 = "0110"
Else
If nibp1 = 56 Then
nibp1 = "0111"
Else
If nibp1 = 64 Then
nibp1 = "1000"
Else
If nibp1 = 72 Then
nibp1 = "1001"
Else
If nibp1 = 80 Then
nibp1 = "1010"
Else
If nibp1 = 88 Then
nibp1 = "1011"
Else
If nibp1 = 96 Then
nibp1 = "1100"
Else
If nibp1 = 104 Then
nibp1 = "1101"
Else
If nibp1 = 112 Then
nibp1 = "1110"
Else
If nibp1 = 120 Then
nibp1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 404 Then
If nibv0 = 7 Then
nibv0 = "0000"
Else
If nibv0 = 15 Then
nibv0 = "0001"
Else
If nibv0 = 23 Then
nibv0 = "0010"
Else
If nibv0 = 31 Then
nibv0 = "0011"
Else
If nibv0 = 39 Then
nibv0 = "0100"
Else
If nibv0 = 47 Then
nibv0 = "0101"
Else
If nibv0 = 55 Then
nibv0 = "0110"
Else
If nibv0 = 63 Then
nibv0 = "0111"
Else
If nibv0 = 71 Then
nibv0 = "1000"
Else
If nibv0 = 79 Then
nibv0 = "1001"
Else
If nibv0 = 87 Then
nibv0 = "1010"
Else
If nibv0 = 95 Then
nibv0 = "1011"
Else
If nibv0 = 103 Then
nibv0 = "1100"
Else
If nibv0 = 111 Then
nibv0 = "1101"
Else
If nibv0 = 119 Then
nibv0 = "1110"
Else
If nibv0 = 127 Then
nibv0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 405 Then
If nibv1 = 7 Then
nibv1 = "0000"
Else
If nibv1 = 15 Then
nibv1 = "0001"
Else
If nibv1 = 23 Then
nibv1 = "0010"
Else
If nibv1 = 31 Then
nibv1 = "0011"
Else
If nibv1 = 39 Then
nibv1 = "0100"
Else
If nibv1 = 47 Then
nibv1 = "0101"
Else
If nibv1 = 55 Then
nibv1 = "0110"
Else
If nibv1 = 63 Then
nibv1 = "0111"
Else
If nibv1 = 71 Then
nibv1 = "1000"
Else
If nibv1 = 79 Then
nibv1 = "1001"
Else
If nibv1 = 87 Then
nibv1 = "1010"
Else
If nibv1 = 95 Then
nibv1 = "1011"
Else
If nibv1 = 103 Then
nibv1 = "1100"
Else
If nibv1 = 111 Then
nibv1 = "1101"
Else
If nibv1 = 119 Then
nibv1 = "1110"
Else
If nibv1 = 127 Then
nibv1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


If cont = 406 Then
If nibv0 = 0 Then
nibv0 = "0000"
Else
If nibv0 = 8 Then
nibv0 = "0001"
Else
If nibv0 = 16 Then
nibv0 = "0010"
Else
If nibv0 = 24 Then
nibv0 = "0011"
Else
If nibv0 = 32 Then
nibv0 = "0100"
Else
If nibv0 = 40 Then
nibv0 = "0101"
Else
If nibv0 = 48 Then
nibv0 = "0110"
Else
If nibv0 = 56 Then
nibv0 = "0111"
Else
If nibv0 = 64 Then
nibv0 = "1000"
Else
If nibv0 = 72 Then
nibv0 = "1001"
Else
If nibv0 = 80 Then
nibv0 = "1010"
Else
If nibv0 = 88 Then
nibv0 = "1011"
Else
If nibv0 = 96 Then
nibv0 = "1100"
Else
If nibv0 = 104 Then
nibv0 = "1101"
Else
If nibv0 = 112 Then
nibv0 = "1110"
Else
If nibv0 = 120 Then
nibv0 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 407 Then
If nibv1 = 0 Then
nibv1 = "0000"
Else
If nibv1 = 8 Then
nibv1 = "0001"
Else
If nibv1 = 16 Then
nibv1 = "0010"
Else
If nibv1 = 24 Then
nibv1 = "0011"
Else
If nibv1 = 32 Then
nibv1 = "0100"
Else
If nibv1 = 40 Then
nibv1 = "0101"
Else
If nibv1 = 48 Then
nibv1 = "0110"
Else
If nibv1 = 56 Then
nibv1 = "0111"
Else
If nibv1 = 64 Then
nibv1 = "1000"
Else
If nibv1 = 72 Then
nibv1 = "1001"
Else
If nibv1 = 80 Then
nibv1 = "1010"
Else
If nibv1 = 88 Then
nibv1 = "1011"
Else
If nibv1 = 96 Then
nibv1 = "1100"
Else
If nibv1 = 104 Then
nibv1 = "1101"
Else
If nibv1 = 112 Then
nibv1 = "1110"
Else
If nibv1 = 120 Then
nibv1 = "1111"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If cont = 408 Then
btemp = nibt1 + nibt0
bumid = nibu1 + nibu0
bpress = nibp1 + nibp0
bvent = nibv1 + nibv0
perif = btemp + bumid + bpress + bvent
Timerperif.Enabled = True
End If
End Sub


Private Sub Frame1_Click()
Frame1.Visible = False
End Sub

Private Sub Frame2_Click()
Frame2.Visible = False
End Sub

Private Sub Label4_Click(Index As Integer)

End Sub

Private Sub oradata_Timer()
Labelora.Caption = Time
Label1.Caption = Date
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Timer1_Timer()
Text2.Text = btemp
Text4.Text = bumid
Text6.Text = bpress
Text3.Text = bvent
End Sub

Private Sub titolo_Timer()

End Sub

Private Sub Timer2_Timer()
If Shape1.BackColor = &HFF& Then
Shape1.BackColor = &HFFFF&
Else
Shape1.BackColor = &HFF&
End If
End Sub

Private Sub Timerpal_Timer()
If Labelora.Caption = "00.00.30" Then
Label11.Caption = Texttemp.Text
Label23.Caption = Textumid.Text
Label35.Caption = Textpress.Text
Label47.Caption = Textvent.Text
End If
If Labelora.Caption = "1.00.30" Then
Label12.Caption = Texttemp.Text
Label24.Caption = Textumid.Text
Label36.Caption = Textpress.Text
Label48.Caption = Textvent.Text
End If
If Labelora.Caption = "2.00.30" Then
Label13.Caption = Texttemp.Text
Label25.Caption = Textumid.Text
Label37.Caption = Textpress.Text
Label49.Caption = Textvent.Text
End If
If Labelora.Caption = "3.00.30" Then
Label14.Caption = Texttemp.Text
Label26.Caption = Textumid.Text
Label38.Caption = Textpress.Text
Label50.Caption = Textvent.Text
End If
If Labelora.Caption = "4.00.30" Then
Label15.Caption = Texttemp.Text
Label27.Caption = Textumid.Text
Label39.Caption = Textpress.Text
Label51.Caption = Textvent.Text
End If
If Labelora.Caption = "5.00.30" Then
Label16.Caption = Texttemp.Text
Label28.Caption = Textumid.Text
Label40.Caption = Textpress.Text
Label52.Caption = Textvent.Text
End If
If Labelora.Caption = "6.00.30" Then
Label17.Caption = Texttemp.Text
Label29.Caption = Textumid.Text
Label41.Caption = Textpress.Text
Label53.Caption = Textvent.Text
End If
If Labelora.Caption = "7.00.30" Then
Label18.Caption = Texttemp.Text
Label30.Caption = Textumid.Text
Label42.Caption = Textpress.Text
Label54.Caption = Textvent.Text
End If
If Labelora.Caption = "8.00.30" Then
Label19.Caption = Texttemp.Text
Label31.Caption = Textumid.Text
Label43.Caption = Textpress.Text
Label55.Caption = Textvent.Text
End If
If Labelora.Caption = "9.00.30" Then
Label20.Caption = Texttemp.Text
Label32.Caption = Textumid.Text
Label44.Caption = Textpress.Text
Label56.Caption = Textvent.Text
End If
If Labelora.Caption = "10.00.30" Then
Label21.Caption = Texttemp.Text
Label33.Caption = Textumid.Text
Label45.Caption = Textpress.Text
Label57.Caption = Textvent.Text
End If
If Labelora.Caption = "11.00.30" Then
Label22.Caption = Texttemp.Text
Label34.Caption = Textumid.Text
Label46.Caption = Textpress.Text
Label58.Caption = Textvent.Text
End If
If Labelora.Caption = "12.00.30" Then
Label59.Caption = Texttemp.Text
Label71.Caption = Textumid.Text
Label83.Caption = Textpress.Text
Label95.Caption = Textvent.Text
End If
If Labelora.Caption = "13.00.30" Then
Label60.Caption = Texttemp.Text
Label72.Caption = Textumid.Text
Label84.Caption = Textpress.Text
Label96.Caption = Textvent.Text
End If
If Labelora.Caption = "14.00.30" Then
Label61.Caption = Texttemp.Text
Label73.Caption = Textumid.Text
Label85.Caption = Textpress.Text
Label97.Caption = Textvent.Text
End If
If Labelora.Caption = "15.00.30" Then
Label62.Caption = Texttemp.Text
Label74.Caption = Textumid.Text
Label86.Caption = Textpress.Text
Label98.Caption = Textvent.Text
End If
If Labelora.Caption = "16.00.30" Then
Label63.Caption = Texttemp.Text
Label75.Caption = Textumid.Text
Label87.Caption = Textpress.Text
Label99.Caption = Textvent.Text
End If
If Labelora.Caption = "17.00.30" Then
Label64.Caption = Texttemp.Text
Label76.Caption = Textumid.Text
Label88.Caption = Textpress.Text
Label100.Caption = Textvent.Text
End If
If Labelora.Caption = "18.00.30" Then
Label65.Caption = Texttemp.Text
Label77.Caption = Textumid.Text
Label89.Caption = Textpress.Text
Label101.Caption = Textvent.Text
End If
If Labelora.Caption = "19.00.30" Then
Label66.Caption = Texttemp.Text
Label78.Caption = Textumid.Text
Label90.Caption = Textpress.Text
Label102.Caption = Textvent.Text
End If
If Labelora.Caption = "20.00.30" Then
Label67.Caption = Texttemp.Text
Label79.Caption = Textumid.Text
Label91.Caption = Textpress.Text
Label103.Caption = Textvent.Text
End If
If Labelora.Caption = "21.00.30" Then
Label68.Caption = Texttemp.Text
Label80.Caption = Textumid.Text
Label92.Caption = Textpress.Text
Label104.Caption = Textvent.Text
End If
If Labelora.Caption = "22.00.30" Then
Label69.Caption = Texttemp.Text
Label81.Caption = Textumid.Text
Label93.Caption = Textpress.Text
Label105.Caption = Textvent.Text
End If
If Labelora.Caption = "23.00.30" Then
Label70.Caption = Texttemp.Text
Label82.Caption = Textumid.Text
Label94.Caption = Textpress.Text
Label106.Caption = Textvent.Text
End If


End Sub

Private Sub Timerperif_Timer()
If perif = "11111111111111111111111111111111" Then
Labelperif = "CENTRALE DISCONNESSA"
Labelperif.ForeColor = &HFF&
Else
If perif = "00000000000000000000000000000000" Then
Labelperif = "CENTRALE DISCONNESSA"
Labelperif.ForeColor = &HFF&
Else
Labelperif = "CENTRALE CONNESSA"
Labelperif.ForeColor = &HFF00&
End If
End If
End Sub

Private Sub Timertemp_Timer()
If btemp = "00000000" Then
Texttemp.Text = "-40"
End If
If btemp = "00000001" Then
Texttemp.Text = "-39"
End If
If btemp = "00000010" Then
Texttemp.Text = "-38"
End If
If btemp = "00000011" Then
Texttemp.Text = "-37"
End If
If btemp = "00000100" Then
Texttemp.Text = "-36"
End If
If btemp = "00000101" Then
Texttemp.Text = "-35"
End If
If btemp = "00000110" Then
Texttemp.Text = "-34"
End If
If btemp = "00000111" Then
Texttemp.Text = "-33"
End If
If btemp = "00001000" Then
Texttemp.Text = "-32"
End If
If btemp = "00001001" Then
Texttemp.Text = "-31"
End If
If btemp = "00001010" Then
Texttemp.Text = "-30"
End If
If btemp = "00001011" Then
Texttemp.Text = "-29"
End If
If btemp = "00001100" Then
Texttemp.Text = "-28"
End If
If btemp = "00001101" Then
Texttemp.Text = "-27"
End If
If btemp = "00001110" Then
Texttemp.Text = "-26"
End If
If btemp = "00001111" Then
Texttemp.Text = "-25"
End If
If btemp = "00010000" Then
Texttemp.Text = "-24"
End If
If btemp = "00010001" Then
Texttemp.Text = "-23"
End If
If btemp = "00010010" Then
Texttemp.Text = "-22"
End If
If btemp = "00010011" Then
Texttemp.Text = "-21"
End If
If btemp = "00010100" Then
Texttemp.Text = "-20"
End If
If btemp = "00010101" Then
Texttemp.Text = "-19"
End If
If btemp = "00010110" Then
Texttemp.Text = "-18"
End If
If btemp = "00010111" Then
Texttemp.Text = "-17"
End If
If btemp = "00011000" Then
Texttemp.Text = "-16"
End If
If btemp = "00011001" Then
Texttemp.Text = "-15"
End If
If btemp = "00011010" Then
Texttemp.Text = "-14"
End If
If btemp = "00011011" Then
Texttemp.Text = "-13"
End If
If btemp = "00011100" Then
Texttemp.Text = "-12"
End If
If btemp = "00011101" Then
Texttemp.Text = "-11"
End If
If btemp = "00011110" Then
Texttemp.Text = "-10"
End If
If btemp = "00011111" Then
Texttemp.Text = "-9"
End If
If btemp = "00100000" Then
Texttemp.Text = "-8"
End If
If btemp = "00100001" Then
Texttemp.Text = "-7"
End If
If btemp = "00100010" Then
Texttemp.Text = "-6"
End If
If btemp = "00100011" Then
Texttemp.Text = "-5"
End If
If btemp = "00100100" Then
Texttemp.Text = "-4"
End If
If btemp = "00100101" Then
Texttemp.Text = "-3"
End If
If btemp = "00100110" Then
Texttemp.Text = "-2"
End If
If btemp = "00100111" Then
Texttemp.Text = "-1"
End If
If btemp = "00101000" Then
Texttemp.Text = "0"
End If
If btemp = "00101001" Then
Texttemp.Text = "1"
End If
If btemp = "00101010" Then
Texttemp.Text = "2"
End If
If btemp = "00101011" Then
Texttemp.Text = "3"
End If
If btemp = "00101100" Then
Texttemp.Text = "4"
End If
If btemp = "00101101" Then
Texttemp.Text = "5"
End If
If btemp = "00101110" Then
Texttemp.Text = "6"
End If
If btemp = "00101111" Then
Texttemp.Text = "7"
End If
If btemp = "00110000" Then
Texttemp.Text = "8"
End If
If btemp = "00110001" Then
Texttemp.Text = "9"
End If
If btemp = "00110010" Then
Texttemp.Text = "10"
End If
If btemp = "00110011" Then
Texttemp.Text = "11"
End If
If btemp = "00110100" Then
Texttemp.Text = "12"
End If
If btemp = "00110101" Then
Texttemp.Text = "13"
End If
If btemp = "00110110" Then
Texttemp.Text = "14"
End If
If btemp = "00110111" Then
Texttemp.Text = "15"
End If
If btemp = "00111000" Then
Texttemp.Text = "16"
End If
If btemp = "00111001" Then
Texttemp.Text = "17"
End If
If btemp = "00111010" Then
Texttemp.Text = "18"
End If
If btemp = "00111011" Then
Texttemp.Text = "19"
End If
If btemp = "00111100" Then
Texttemp.Text = "20"
End If
If btemp = "00111101" Then
Texttemp.Text = "21"
End If
If btemp = "00111110" Then
Texttemp.Text = "22"
End If
If btemp = "00111111" Then
Texttemp.Text = "23"
End If
If btemp = "01000001" Then
Texttemp.Text = "24"
End If
If btemp = "01000010" Then
Texttemp.Text = "25"
End If
If btemp = "01000011" Then
Texttemp.Text = "26"
End If
If btemp = "01000100" Then
Texttemp.Text = "27"
End If
If btemp = "01000101" Then
Texttemp.Text = "28"
End If
If btemp = "01000110" Then
Texttemp.Text = "29"
End If
If btemp = "01000111" Then
Texttemp.Text = "30"
End If
If btemp = "01001000" Then
Texttemp.Text = "31"
End If
If btemp = "01001001" Then
Texttemp.Text = "32"
End If
If btemp = "01001010" Then
Texttemp.Text = "33"
End If
If btemp = "01001011" Then
Texttemp.Text = "34"
End If
If btemp = "01001100" Then
Texttemp.Text = "35"
End If
If btemp = "01001101" Then
Texttemp.Text = "36"
End If
If btemp = "01001110" Then
Texttemp.Text = "37"
End If
If btemp = "01001111" Then
Texttemp.Text = "38"
End If
If btemp = "01010000" Then
Texttemp.Text = "39"
End If
If btemp = "01010001" Then
Texttemp.Text = "40"
End If
If btemp = "01010010" Then
Texttemp.Text = "41"
End If
If btemp = "01010011" Then
Texttemp.Text = "42"
End If
If btemp = "01010100" Then
Texttemp.Text = "43"
End If
If btemp = "01010101" Then
Texttemp.Text = "44"
End If
If btemp = "01010110" Then
Texttemp.Text = "45"
End If
If btemp = "01010111" Then
Texttemp.Text = "46"
End If
If btemp = "01011000" Then
Texttemp.Text = "47"
End If
If btemp = "01011001" Then
Texttemp.Text = "48"
End If
If btemp = "01011010" Then
Texttemp.Text = "49"
End If
If btemp = "01011011" Then
Texttemp.Text = "50"
End If
If btemp = "01011100" Then
Texttemp.Text = "51"
End If
If btemp = "01011101" Then
Texttemp.Text = "52"
End If
If btemp = "01011110" Then
Texttemp.Text = "53"
End If
If btemp = "01011111" Then
Texttemp.Text = "54"
End If
If btemp = "01100000" Then
Texttemp.Text = "55"
End If
If btemp = "01100001" Then
Texttemp.Text = "56"
End If
If btemp = "01100010" Then
Texttemp.Text = "57"
End If
If btemp = "01100011" Then
Texttemp.Text = "58"
End If
If btemp = "01100100" Then
Texttemp.Text = "59"
End If
If btemp = "01100101" Then
Texttemp.Text = "60"
End If
If btemp > "01100101" Then
Texttemp.Text = "Fuori Range"
End If
End Sub

Private Sub Timervent_Timer()
If bvent = "00000000" Then
Textvent.Text = "-40"
End If
If bvent = "00000001" Then
Textvent.Text = "-39"
End If
If bvent = "00000010" Then
Textvent.Text = "-38"
End If
If bvent = "00000011" Then
Textvent.Text = "-37"
End If
If bvent = "00000100" Then
Textvent.Text = "-36"
End If
If bvent = "00000101" Then
Textvent.Text = "-35"
End If
If bvent = "00000110" Then
Textvent.Text = "-34"
End If
If bvent = "00000111" Then
Textvent.Text = "-33"
End If
If bvent = "00001000" Then
Textvent.Text = "-32"
End If
If bvent = "00001001" Then
Textvent.Text = "-31"
End If
If bvent = "00001010" Then
Textvent.Text = "-30"
End If
If bvent = "00001011" Then
Textvent.Text = "-29"
End If
If bvent = "00001100" Then
Textvent.Text = "-28"
End If
If bvent = "00001101" Then
Textvent.Text = "-27"
End If
If bvent = "00001110" Then
Textvent.Text = "-26"
End If
If bvent = "00001111" Then
Textvent.Text = "-25"
End If
If bvent = "00010000" Then
Textvent.Text = "-24"
End If
If bvent = "00010001" Then
Textvent.Text = "-23"
End If
If bvent = "00010010" Then
Textvent.Text = "-22"
End If
If bvent = "00010011" Then
Textvent.Text = "-21"
End If
If bvent = "00010100" Then
Textvent.Text = "-20"
End If
If bvent = "00010101" Then
Textvent.Text = "-19"
End If
If bvent = "00010110" Then
Textvent.Text = "-18"
End If
If bvent = "00010111" Then
Textvent.Text = "-17"
End If
If bvent = "00011000" Then
Textvent.Text = "-16"
End If
If bvent = "00011001" Then
Textvent.Text = "-15"
End If
If bvent = "00011010" Then
Textvent.Text = "-14"
End If
If bvent = "00011011" Then
Textvent.Text = "-13"
End If
If bvent = "00011100" Then
Textvent.Text = "-12"
End If
If bvent = "00011101" Then
Textvent.Text = "-11"
End If
If bvent = "00011110" Then
Textvent.Text = "-10"
End If
If bvent = "00011111" Then
Textvent.Text = "-9"
End If
If bvent = "00100000" Then
Textvent.Text = "-8"
End If
If bvent = "00100001" Then
Textvent.Text = "-7"
End If
If bvent = "00100010" Then
Textvent.Text = "-6"
End If
If bvent = "00100011" Then
Textvent.Text = "-5"
End If
If bvent = "00100100" Then
Textvent.Text = "-4"
End If
If bvent = "00100101" Then
Textvent.Text = "-3"
End If
If bvent = "00100110" Then
Textvent.Text = "-2"
End If
If bvent = "00100111" Then
Textvent.Text = "-1"
End If
If bvent = "00101000" Then
Textvent.Text = "0"
End If
If bvent = "00101001" Then
Textvent.Text = "1"
End If
If bvent = "00101010" Then
Textvent.Text = "2"
End If
If bvent = "00101011" Then
Textvent.Text = "3"
End If
If bvent = "00101100" Then
Textvent.Text = "4"
End If
If bvent = "00101101" Then
Textvent.Text = "5"
End If
If bvent = "00101110" Then
Textvent.Text = "6"
End If
If bvent = "00101111" Then
Textvent.Text = "7"
End If
If bvent = "00110000" Then
Textvent.Text = "8"
End If
If bvent = "00110001" Then
Textvent.Text = "9"
End If
If bvent = "00110010" Then
Textvent.Text = "10"
End If
If bvent = "00110011" Then
Textvent.Text = "11"
End If
If bvent = "00110100" Then
Textvent.Text = "12"
End If
If bvent = "00110101" Then
Textvent.Text = "13"
End If
If bvent = "00110110" Then
Textvent.Text = "14"
End If
If bvent = "00110111" Then
Textvent.Text = "15"
End If
If bvent = "00111000" Then
Textvent.Text = "16"
End If
If bvent = "00111001" Then
Textvent.Text = "17"
End If
If bvent = "00111010" Then
Textvent.Text = "18"
End If
If bvent = "00111011" Then
Textvent.Text = "19"
End If
If bvent = "00111100" Then
Textvent.Text = "20"
End If
If bvent = "00111101" Then
Textvent.Text = "21"
End If
If bvent = "00111110" Then
Textvent.Text = "22"
End If
If bvent = "00111111" Then
Textvent.Text = "23"
End If
If bvent = "01000001" Then
Textvent.Text = "24"
End If
If bvent = "01000010" Then
Textvent.Text = "25"
End If
If bvent = "01000011" Then
Textvent.Text = "26"
End If
If bvent = "01000100" Then
Textvent.Text = "27"
End If
If bvent = "01000101" Then
Textvent.Text = "28"
End If
If bvent = "01000110" Then
Textvent.Text = "29"
End If
If bvent = "01000111" Then
Textvent.Text = "30"
End If
If bvent = "01001000" Then
Textvent.Text = "31"
End If
If bvent = "01001001" Then
Textvent.Text = "32"
End If
If bvent = "01001010" Then
Textvent.Text = "33"
End If
If bvent = "01001011" Then
Textvent.Text = "34"
End If
If bvent = "01001100" Then
Textvent.Text = "35"
End If
If bvent = "01001101" Then
Textvent.Text = "36"
End If
If bvent = "01001110" Then
Textvent.Text = "37"
End If
If bvent = "01001111" Then
Textvent.Text = "38"
End If
If bvent = "01010000" Then
Textvent.Text = "39"
End If
If bvent = "01010001" Then
Textvent.Text = "40"
End If
If bvent = "01010010" Then
Textvent.Text = "41"
End If
If bvent = "01010011" Then
Textvent.Text = "42"
End If
If bvent = "01010100" Then
Textvent.Text = "43"
End If
If bvent = "01010101" Then
Textvent.Text = "44"
End If
If bvent = "01010110" Then
Textvent.Text = "45"
End If
If bvent = "01010111" Then
Textvent.Text = "46"
End If
If bvent = "01011000" Then
Textvent.Text = "47"
End If
If bvent = "01011001" Then
Textvent.Text = "48"
End If
If bvent = "01011010" Then
Textvent.Text = "49"
End If
If bvent = "01011011" Then
Textvent.Text = "50"
End If
If bvent = "01011100" Then
Textvent.Text = "51"
End If
If bvent = "01011101" Then
Textvent.Text = "52"
End If
If bvent = "01011110" Then
Textvent.Text = "53"
End If
If bvent = "01011111" Then
Textvent.Text = "54"
End If
If bvent = "01100000" Then
Textvent.Text = "55"
End If
If bvent = "01100001" Then
Textvent.Text = "56"
End If
If bvent = "01100010" Then
Textvent.Text = "57"
End If
If bvent = "01100011" Then
Textvent.Text = "58"
End If
If bvent = "01100100" Then
Textvent.Text = "59"
End If
If bvent = "01100101" Then
Textvent.Text = "60"
End If
If bvent > "01100101" Then
Textvent.Text = "Fuori Range"
End If

End Sub
