VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Resistenza Elettrica By Niespolo Vincenzo"
   ClientHeight    =   6240
   ClientLeft      =   2865
   ClientTop       =   2835
   ClientWidth     =   9405
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9.75
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   -1  'True
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "CALCOL~1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6240
   ScaleWidth      =   9405
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer7 
      Interval        =   1
      Left            =   6840
      Top             =   5760
   End
   Begin VB.Timer Timer6 
      Enabled         =   0   'False
      Interval        =   300
      Left            =   7320
      Top             =   5760
   End
   Begin VB.Timer Timer5 
      Enabled         =   0   'False
      Interval        =   300
      Left            =   7800
      Top             =   5760
   End
   Begin VB.TextBox Text3 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7440
      TabIndex        =   98
      Top             =   5160
      Width           =   1215
   End
   Begin VB.Timer Timer4 
      Interval        =   1
      Left            =   7440
      Top             =   120
   End
   Begin VB.TextBox Text2 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6480
      Locked          =   -1  'True
      TabIndex        =   96
      Top             =   5160
      Width           =   495
   End
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   7920
      Top             =   120
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   8400
      Top             =   120
   End
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   94
      Top             =   5160
      Width           =   1815
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   8880
      Top             =   120
   End
   Begin VB.Frame Frame2 
      BorderStyle     =   0  'None
      Caption         =   "Frame2"
      Height          =   3120
      Left            =   2880
      TabIndex        =   35
      Top             =   1440
      Width           =   975
      Begin VB.OptionButton Option19 
         BackColor       =   &H00FFFFFF&
         Caption         =   "9"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   55
         Top             =   2640
         Width           =   975
      End
      Begin VB.OptionButton Option18 
         BackColor       =   &H00808080&
         Caption         =   "8"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   54
         Top             =   2400
         Width           =   975
      End
      Begin VB.OptionButton Option17 
         BackColor       =   &H00800080&
         Caption         =   "7"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   53
         Top             =   2160
         Width           =   975
      End
      Begin VB.OptionButton Option16 
         BackColor       =   &H00FF0000&
         Caption         =   "6"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   52
         Top             =   1920
         Width           =   975
      End
      Begin VB.OptionButton Option15 
         BackColor       =   &H00008000&
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   51
         Top             =   1680
         Width           =   975
      End
      Begin VB.OptionButton Option14 
         BackColor       =   &H0000FFFF&
         Caption         =   "4"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   50
         Top             =   1440
         Width           =   975
      End
      Begin VB.OptionButton Option13 
         BackColor       =   &H000080FF&
         Caption         =   "3"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   49
         Top             =   1200
         Width           =   975
      End
      Begin VB.OptionButton Option12 
         BackColor       =   &H000000FF&
         Caption         =   "2"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   48
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton Option10 
         BackColor       =   &H00004080&
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   0
         TabIndex        =   47
         Top             =   720
         Width           =   975
      End
      Begin VB.OptionButton Option11 
         BackColor       =   &H00000000&
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0C0C0&
         Height          =   255
         Left            =   0
         TabIndex        =   46
         Top             =   480
         Width           =   975
      End
   End
   Begin VB.Frame Frame7 
      BorderStyle     =   0  'None
      Caption         =   "Frame7"
      Height          =   3120
      Left            =   6840
      TabIndex        =   34
      Top             =   1440
      Width           =   975
      Begin VB.OptionButton Option42 
         Caption         =   "20%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   84
         Top             =   2880
         Width           =   975
      End
      Begin VB.OptionButton Option43 
         BackColor       =   &H00808080&
         Caption         =   "30%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   83
         Top             =   2400
         Width           =   975
      End
      Begin VB.OptionButton Option44 
         BackColor       =   &H00008000&
         Caption         =   "0.5%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   82
         Top             =   1680
         Width           =   975
      End
      Begin VB.OptionButton Option45 
         BackColor       =   &H000000FF&
         Caption         =   "2%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   81
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton Option47 
         BackColor       =   &H00004080&
         Caption         =   "1%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   80
         Top             =   720
         Width           =   975
      End
      Begin VB.OptionButton Option48 
         BackColor       =   &H00000000&
         Caption         =   "20%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00E0E0E0&
         Height          =   255
         Left            =   0
         TabIndex        =   79
         Top             =   480
         Width           =   975
      End
      Begin VB.OptionButton Option49 
         BackColor       =   &H0000D7FF&
         Caption         =   "5%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   78
         Top             =   240
         Width           =   975
      End
      Begin VB.OptionButton Option46 
         BackColor       =   &H00C0C0C0&
         Caption         =   "10%"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   77
         Top             =   0
         Width           =   975
      End
   End
   Begin VB.Frame Frame6 
      BorderStyle     =   0  'None
      Caption         =   "Frame6"
      Height          =   375
      Left            =   2760
      TabIndex        =   30
      Top             =   0
      Width           =   4095
      Begin VB.OptionButton Option50 
         Caption         =   "4 Bande"
         Height          =   255
         Left            =   120
         TabIndex        =   33
         Top             =   120
         Width           =   1095
      End
      Begin VB.OptionButton Option51 
         Caption         =   "6 Bande"
         Height          =   255
         Left            =   2520
         TabIndex        =   32
         Top             =   120
         Width           =   1095
      End
      Begin VB.OptionButton Option52 
         Caption         =   "5 Bande"
         Height          =   255
         Left            =   1320
         TabIndex        =   31
         Top             =   120
         Width           =   1095
      End
   End
   Begin VB.Frame Frame5 
      BorderStyle     =   0  'None
      Caption         =   "Frame5"
      Height          =   3120
      Left            =   8160
      TabIndex        =   29
      Top             =   1440
      Width           =   975
      Begin VB.OptionButton Option30 
         BackColor       =   &H00808080&
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   93
         Top             =   2400
         Width           =   975
      End
      Begin VB.OptionButton Option60 
         BackColor       =   &H00800080&
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   92
         Top             =   2160
         Width           =   975
      End
      Begin VB.OptionButton Option56 
         BackColor       =   &H00FF0000&
         Caption         =   "10"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   91
         Top             =   1920
         Width           =   975
      End
      Begin VB.OptionButton Option59 
         BackColor       =   &H00008000&
         Caption         =   "20"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   90
         Top             =   1680
         Width           =   975
      End
      Begin VB.OptionButton Option57 
         BackColor       =   &H0000FFFF&
         Caption         =   "25"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   89
         Top             =   1440
         Width           =   975
      End
      Begin VB.OptionButton Option58 
         BackColor       =   &H000080FF&
         Caption         =   "15"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   88
         Top             =   1200
         Width           =   975
      End
      Begin VB.OptionButton Option53 
         BackColor       =   &H000000FF&
         Caption         =   "50"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   87
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton Option54 
         BackColor       =   &H00004080&
         Caption         =   "100"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   86
         Top             =   720
         Width           =   975
      End
      Begin VB.OptionButton Option55 
         BackColor       =   &H00000000&
         Caption         =   "250"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0C0C0&
         Height          =   255
         Left            =   0
         TabIndex        =   85
         Top             =   480
         Width           =   975
      End
   End
   Begin VB.Frame Frame4 
      BorderStyle     =   0  'None
      Caption         =   "Frame4"
      Height          =   3120
      Left            =   5520
      TabIndex        =   28
      Top             =   1320
      Width           =   975
      Begin VB.OptionButton Option41 
         BackColor       =   &H00808080&
         Caption         =   "100 M"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   76
         Top             =   2520
         Width           =   975
      End
      Begin VB.OptionButton Option40 
         BackColor       =   &H00800080&
         Caption         =   "10 M"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   75
         Top             =   2280
         Width           =   975
      End
      Begin VB.OptionButton Option39 
         BackColor       =   &H00FF0000&
         Caption         =   "1 M"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   74
         Top             =   2040
         Width           =   975
      End
      Begin VB.OptionButton Option37 
         BackColor       =   &H00008000&
         Caption         =   "100 K"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   73
         Top             =   1800
         Width           =   975
      End
      Begin VB.OptionButton Option38 
         BackColor       =   &H0000FFFF&
         Caption         =   "10 k"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   72
         Top             =   1560
         Width           =   975
      End
      Begin VB.OptionButton Option36 
         BackColor       =   &H000080FF&
         Caption         =   "1 K"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   71
         Top             =   1320
         Width           =   975
      End
      Begin VB.OptionButton Option35 
         BackColor       =   &H000000FF&
         Caption         =   "100"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   70
         Top             =   1080
         Width           =   975
      End
      Begin VB.OptionButton Option34 
         BackColor       =   &H00004080&
         Caption         =   "10"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   69
         Top             =   840
         Width           =   975
      End
      Begin VB.OptionButton Option33 
         BackColor       =   &H00000000&
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0C0C0&
         Height          =   255
         Left            =   0
         TabIndex        =   68
         Top             =   600
         Width           =   975
      End
      Begin VB.OptionButton Option32 
         BackColor       =   &H0000D7FF&
         Caption         =   "0.1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   67
         Top             =   360
         Width           =   975
      End
      Begin VB.OptionButton Option31 
         BackColor       =   &H00C0C0C0&
         Caption         =   "0.01"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   66
         Top             =   120
         Width           =   975
      End
   End
   Begin VB.Frame Frame3 
      BorderStyle     =   0  'None
      Caption         =   "Frame3"
      Height          =   3120
      Left            =   4200
      TabIndex        =   27
      Top             =   1320
      Width           =   975
      Begin VB.OptionButton Option29 
         BackColor       =   &H00FFFFFF&
         Caption         =   "9"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   65
         Top             =   2760
         Width           =   975
      End
      Begin VB.OptionButton Option28 
         BackColor       =   &H00808080&
         Caption         =   "8"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   64
         Top             =   2520
         Width           =   975
      End
      Begin VB.OptionButton Option27 
         BackColor       =   &H00800080&
         Caption         =   "7"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   63
         Top             =   2280
         Width           =   975
      End
      Begin VB.OptionButton Option26 
         BackColor       =   &H00FF0000&
         Caption         =   "6"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   62
         Top             =   2040
         Width           =   975
      End
      Begin VB.OptionButton Option25 
         BackColor       =   &H00008000&
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   61
         Top             =   1800
         Width           =   975
      End
      Begin VB.OptionButton Option24 
         BackColor       =   &H0000FFFF&
         Caption         =   "4"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   60
         Top             =   1560
         Width           =   975
      End
      Begin VB.OptionButton Option23 
         BackColor       =   &H000080FF&
         Caption         =   "3"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   59
         Top             =   1320
         Width           =   975
      End
      Begin VB.OptionButton Option22 
         BackColor       =   &H000000FF&
         Caption         =   "2"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   58
         Top             =   1080
         Width           =   975
      End
      Begin VB.OptionButton Option21 
         BackColor       =   &H00004080&
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   57
         Top             =   840
         Width           =   975
      End
      Begin VB.OptionButton Option20 
         BackColor       =   &H00000000&
         Caption         =   "0"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C0C0C0&
         Height          =   255
         Left            =   0
         TabIndex        =   56
         Top             =   600
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   3120
      Left            =   1560
      TabIndex        =   26
      Top             =   1440
      Width           =   975
      Begin VB.OptionButton Option9 
         BackColor       =   &H00FFFFFF&
         Caption         =   "9"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   45
         Top             =   2640
         Width           =   975
      End
      Begin VB.OptionButton Option8 
         BackColor       =   &H00808080&
         Caption         =   "8"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   44
         Top             =   2400
         Width           =   975
      End
      Begin VB.OptionButton Option7 
         BackColor       =   &H00800080&
         Caption         =   "7"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   43
         Top             =   2160
         Width           =   975
      End
      Begin VB.OptionButton Option6 
         BackColor       =   &H00FF0000&
         Caption         =   "6"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   42
         Top             =   1920
         Width           =   975
      End
      Begin VB.OptionButton Option5 
         BackColor       =   &H00008000&
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   41
         Top             =   1680
         Width           =   975
      End
      Begin VB.OptionButton Option4 
         BackColor       =   &H0000FFFF&
         Caption         =   "4"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   40
         Top             =   1440
         Width           =   975
      End
      Begin VB.OptionButton Option3 
         BackColor       =   &H000080FF&
         Caption         =   "3"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   39
         Top             =   1200
         Width           =   975
      End
      Begin VB.OptionButton Option2 
         BackColor       =   &H000000FF&
         Caption         =   "2"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   38
         Top             =   960
         Width           =   975
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00004080&
         Caption         =   "1"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   0
         TabIndex        =   37
         Top             =   720
         Width           =   975
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Esci"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8300
      TabIndex        =   24
      Top             =   5760
      Width           =   975
   End
   Begin VB.Label Label30 
      Alignment       =   2  'Center
      Caption         =   "DISPONIBILE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   375
      Left            =   3720
      TabIndex        =   100
      Top             =   5760
      Width           =   2655
   End
   Begin VB.Line Line56 
      X1              =   3600
      X2              =   3720
      Y1              =   6000
      Y2              =   5880
   End
   Begin VB.Line Line55 
      X1              =   3600
      X2              =   3720
      Y1              =   5760
      Y2              =   5880
   End
   Begin VB.Line Line54 
      X1              =   3120
      X2              =   3720
      Y1              =   5880
      Y2              =   5880
   End
   Begin VB.Line Line50 
      X1              =   9240
      X2              =   4440
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label Label29 
      Alignment       =   2  'Center
      Caption         =   "Coeff Temp"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7440
      TabIndex        =   99
      Top             =   4920
      Width           =   1215
   End
   Begin VB.Label Label28 
      Caption         =   "%"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6960
      TabIndex        =   97
      Top             =   5160
      Width           =   375
   End
   Begin VB.Label Label27 
      Alignment       =   2  'Center
      Caption         =   "Ohm"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5520
      TabIndex        =   95
      Top             =   5160
      Width           =   735
   End
   Begin VB.Line Line53 
      X1              =   2280
      X2              =   2400
      Y1              =   5760
      Y2              =   5760
   End
   Begin VB.Line Line52 
      X1              =   1200
      X2              =   2040
      Y1              =   5640
      Y2              =   5640
   End
   Begin VB.Line Line51 
      X1              =   840
      X2              =   960
      Y1              =   5160
      Y2              =   5160
   End
   Begin VB.Line Line20 
      X1              =   2280
      X2              =   2400
      Y1              =   5160
      Y2              =   5160
   End
   Begin VB.Line Line19 
      X1              =   1080
      X2              =   2160
      Y1              =   5280
      Y2              =   5280
   End
   Begin VB.Shape Shape13 
      BackColor       =   &H00808000&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   375
      Left            =   1440
      Top             =   5280
      Width           =   135
   End
   Begin VB.Shape Shape12 
      BackColor       =   &H00808000&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   615
      Left            =   2280
      Top             =   5160
      Visible         =   0   'False
      Width           =   135
   End
   Begin VB.Line Line18 
      X1              =   1320
      X2              =   1680
      Y1              =   5280
      Y2              =   5280
   End
   Begin VB.Line Line17 
      X1              =   2280
      X2              =   2400
      Y1              =   5160
      Y2              =   5160
   End
   Begin VB.Line Line15 
      X1              =   2760
      X2              =   2880
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line14 
      X1              =   3960
      X2              =   3840
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      Caption         =   "2°ANELLO"
      Height          =   255
      Left            =   2880
      TabIndex        =   36
      Top             =   840
      Width           =   975
   End
   Begin VB.Line Line13 
      X1              =   3960
      X2              =   2760
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line12 
      X1              =   3960
      X2              =   3960
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line6 
      X1              =   2760
      X2              =   2760
      Y1              =   960
      Y2              =   4680
   End
   Begin VB.Line Line9 
      X1              =   1440
      X2              =   1440
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line8 
      X1              =   2640
      X2              =   2640
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line49 
      X1              =   3480
      X2              =   3600
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label Label26 
      Alignment       =   2  'Center
      Caption         =   "Proprietà"
      Height          =   255
      Left            =   3600
      TabIndex        =   25
      Top             =   4800
      Width           =   855
   End
   Begin VB.Line Line46 
      X1              =   3480
      X2              =   3480
      Y1              =   5640
      Y2              =   4920
   End
   Begin VB.Line Line48 
      X1              =   9240
      X2              =   9240
      Y1              =   5640
      Y2              =   4920
   End
   Begin VB.Line Line47 
      X1              =   3480
      X2              =   9240
      Y1              =   5640
      Y2              =   5640
   End
   Begin VB.Label Label25 
      Alignment       =   2  'Center
      Caption         =   "(Coefficiente di temperatura)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   6.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8160
      TabIndex        =   23
      Top             =   1080
      Width           =   975
   End
   Begin VB.Line Line45 
      X1              =   8040
      X2              =   8160
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line44 
      X1              =   9240
      X2              =   9120
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label24 
      Alignment       =   2  'Center
      Caption         =   "6°ANELLO"
      Height          =   255
      Left            =   8160
      TabIndex        =   22
      Top             =   840
      Width           =   975
   End
   Begin VB.Line Line43 
      X1              =   120
      X2              =   240
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Line Line42 
      X1              =   3120
      X2              =   1200
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Label Label23 
      Caption         =   "Resistenza"
      Height          =   255
      Left            =   240
      TabIndex        =   21
      Top             =   4800
      Width           =   975
   End
   Begin VB.Line Line41 
      X1              =   120
      X2              =   120
      Y1              =   4920
      Y2              =   6000
   End
   Begin VB.Line Line40 
      X1              =   3120
      X2              =   3120
      Y1              =   4920
      Y2              =   6000
   End
   Begin VB.Line Line39 
      X1              =   120
      X2              =   3120
      Y1              =   6000
      Y2              =   6000
   End
   Begin VB.Label Label22 
      Caption         =   "RESISTENZA DA :"
      BeginProperty Font 
         Name            =   "Action Force"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   120
      TabIndex        =   20
      Top             =   120
      Width           =   2535
   End
   Begin VB.Shape Shape11 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   375
      Left            =   1920
      Top             =   5280
      Width           =   135
   End
   Begin VB.Shape Shape10 
      BorderColor     =   &H00808000&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   615
      Left            =   2280
      Top             =   5160
      Width           =   135
   End
   Begin VB.Shape Shape9 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   375
      Left            =   1680
      Top             =   5280
      Width           =   135
   End
   Begin VB.Shape Shape8 
      BorderColor     =   &H00808000&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   375
      Left            =   1440
      Top             =   5280
      Width           =   135
   End
   Begin VB.Shape Shape7 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   375
      Left            =   1200
      Top             =   5280
      Width           =   135
   End
   Begin VB.Shape Shape6 
      BorderColor     =   &H00000000&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   615
      Left            =   840
      Top             =   5160
      Width           =   135
   End
   Begin VB.Shape Shape5 
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   375
      Left            =   1080
      Top             =   5280
      Width           =   1095
   End
   Begin VB.Shape Shape4 
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   615
      Left            =   2160
      Shape           =   4  'Rounded Rectangle
      Top             =   5160
      Width           =   375
   End
   Begin VB.Shape Shape3 
      FillColor       =   &H00808000&
      FillStyle       =   0  'Solid
      Height          =   615
      Left            =   720
      Shape           =   4  'Rounded Rectangle
      Top             =   5160
      Width           =   375
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H80000006&
      FillColor       =   &H00C0C0C0&
      FillStyle       =   0  'Solid
      Height          =   135
      Left            =   2520
      Shape           =   4  'Rounded Rectangle
      Top             =   5400
      Width           =   495
   End
   Begin VB.Shape Shape1 
      FillColor       =   &H00C0C0C0&
      FillStyle       =   0  'Solid
      Height          =   135
      Left            =   240
      Shape           =   4  'Rounded Rectangle
      Top             =   5400
      Width           =   495
   End
   Begin VB.Line Line38 
      X1              =   9240
      X2              =   9240
      Y1              =   960
      Y2              =   4680
   End
   Begin VB.Line Line37 
      X1              =   8040
      X2              =   9240
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line36 
      X1              =   8040
      X2              =   8040
      Y1              =   960
      Y2              =   4680
   End
   Begin VB.Label Label21 
      Alignment       =   2  'Center
      Caption         =   "(Tolleranza)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6840
      TabIndex        =   19
      Top             =   1080
      Width           =   975
   End
   Begin VB.Line Line35 
      X1              =   6720
      X2              =   6840
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line34 
      X1              =   7920
      X2              =   7800
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label20 
      Alignment       =   2  'Center
      Caption         =   "5°ANELLO"
      Height          =   255
      Left            =   6840
      TabIndex        =   18
      Top             =   840
      Width           =   975
   End
   Begin VB.Line Line33 
      X1              =   7920
      X2              =   7920
      Y1              =   960
      Y2              =   4680
   End
   Begin VB.Line Line32 
      X1              =   6720
      X2              =   7920
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line31 
      X1              =   6720
      X2              =   6720
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Label Label19 
      Caption         =   "(Moltiplicazione)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   6.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5445
      TabIndex        =   17
      Top             =   1080
      Width           =   1125
   End
   Begin VB.Line Line30 
      X1              =   5520
      X2              =   5400
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line27 
      X1              =   6600
      X2              =   6480
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label18 
      Alignment       =   2  'Center
      Caption         =   "4°ANELLO"
      Height          =   255
      Left            =   5520
      TabIndex        =   16
      Top             =   840
      Width           =   975
   End
   Begin VB.Line Line29 
      X1              =   6600
      X2              =   6600
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line28 
      X1              =   5400
      X2              =   6600
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line26 
      X1              =   5400
      X2              =   5400
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line25 
      X1              =   4080
      X2              =   4200
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line24 
      X1              =   5280
      X2              =   5160
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      Caption         =   "3°ANELLO"
      Height          =   255
      Left            =   4200
      TabIndex        =   15
      Top             =   840
      Width           =   975
   End
   Begin VB.Line Line23 
      X1              =   4080
      X2              =   5280
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line22 
      X1              =   5280
      X2              =   5280
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line21 
      X1              =   4080
      X2              =   4080
      Y1              =   960
      Y2              =   4680
   End
   Begin VB.Line Line16 
      X1              =   1320
      X2              =   1320
      Y1              =   4320
      Y2              =   4680
   End
   Begin VB.Line Line11 
      X1              =   1560
      X2              =   1440
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line10 
      X1              =   2640
      X2              =   2520
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      Caption         =   "1°ANELLO"
      Height          =   255
      Left            =   1560
      TabIndex        =   14
      Top             =   840
      Width           =   975
   End
   Begin VB.Line Line7 
      X1              =   1440
      X2              =   2640
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line4 
      X1              =   360
      X2              =   120
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line Line2 
      X1              =   120
      X2              =   1320
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line5 
      BorderColor     =   &H00000000&
      X1              =   1320
      X2              =   1320
      Y1              =   4320
      Y2              =   960
   End
   Begin VB.Line Line3 
      X1              =   120
      X2              =   120
      Y1              =   4680
      Y2              =   960
   End
   Begin VB.Line Line1 
      X1              =   1080
      X2              =   1320
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      Caption         =   "Nessuno"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   13
      Top             =   4320
      Width           =   975
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      Caption         =   "COLORI"
      Height          =   255
      Left            =   240
      TabIndex        =   12
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Bianco"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   11
      Top             =   4080
      Width           =   975
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      BackColor       =   &H00808080&
      Caption         =   "Grigio"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   3840
      Width           =   975
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      BackColor       =   &H00800080&
      Caption         =   "Viola"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   3600
      Width           =   975
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      BackColor       =   &H00FF0000&
      Caption         =   "Blù"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      BackColor       =   &H00008000&
      Caption         =   "Verde"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   3120
      Width           =   975
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackColor       =   &H0000FFFF&
      Caption         =   "Giallo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   2880
      Width           =   975
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H000080FF&
      Caption         =   "Arancio"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   2640
      Width           =   975
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H000000FF&
      Caption         =   "Rosso"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   2400
      Width           =   975
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00004080&
      Caption         =   "Marrone"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   2160
      Width           =   975
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Nero"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0C0&
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H0000D7FF&
      Caption         =   "Oro"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   1680
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      Caption         =   "Argento"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   1440
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cont As Double
Private Sub Command1_Click()
End
End Sub

Private Sub Command3_Click()
Timer5.Enabled = False
End Sub

Private Sub Command2_Click()
Timer5.Enabled = True
Timer6.Enabled = True
End Sub

Private Sub Form_Load()
Dim a, b, c, d As Double

End Sub

Private Sub Option1_Click()
Shape6.FillColor = &H4080&

End Sub

Private Sub Option10_Click()
Shape7.FillColor = &H4080&

End Sub

Private Sub Option11_Click()
Shape7.FillColor = &H0&


End Sub

Private Sub Option12_Click()
Shape7.FillColor = &HFF&
End Sub

Private Sub Option13_Click()
Shape7.FillColor = &H80FF&
End Sub

Private Sub Option14_Click()
Shape7.FillColor = &HFFFF&
End Sub

Private Sub Option15_Click()
Shape7.FillColor = &H8000&
End Sub

Private Sub Option16_Click()
Shape7.FillColor = &HFF0000
End Sub

Private Sub Option17_Click()
Shape7.FillColor = &H800080
End Sub

Private Sub Option18_Click()
Shape7.FillColor = &H808080
End Sub

Private Sub Option19_Click()
Shape7.FillColor = &HFFFFFF
End Sub

Private Sub Option2_Click()
Shape6.FillColor = &HFF&

End Sub

Private Sub Option20_Click()
Shape8.FillColor = &H0&
End Sub

Private Sub Option21_Click()
Shape8.FillColor = &H4080&
End Sub

Private Sub Option22_Click()
Shape8.FillColor = &HFF&
End Sub

Private Sub Option23_Click()
Shape8.FillColor = &H80FF&
End Sub

Private Sub Option24_Click()
Shape8.FillColor = &HFFFF&
End Sub

Private Sub Option25_Click()
Shape8.FillColor = &H8000&
End Sub

Private Sub Option26_Click()
Shape8.FillColor = &HFF0000
End Sub

Private Sub Option27_Click()
Shape8.FillColor = &H800080
End Sub

Private Sub Option28_Click()
Shape8.FillColor = &H808080
End Sub

Private Sub Option29_Click()
Shape8.FillColor = &HFFFFFF
End Sub

Private Sub Option3_Click()
Shape6.FillColor = &H80FF&

End Sub

Private Sub Option30_Click()
Shape10.FillColor = &H808080
Text3.Text = "1"
End Sub

Private Sub Option31_Click()
Shape9.FillColor = &HC0C0C0


End Sub

Private Sub Option32_Click()
Shape9.FillColor = &HD7FF&

End Sub

Private Sub Option33_Click()
Shape9.FillColor = &H0&
End Sub

Private Sub Option34_Click()
Shape9.FillColor = &H4080&
End Sub

Private Sub Option35_Click()
Shape9.FillColor = &HFF&
End Sub

Private Sub Option36_Click()
Shape9.FillColor = &H80FF&
End Sub

Private Sub Option37_Click()
Shape9.FillColor = &H8000&
End Sub

Private Sub Option38_Click()
Shape9.FillColor = &HFFFF&
End Sub

Private Sub Option39_Click()
Shape9.FillColor = &HFF0000
End Sub

Private Sub Option4_Click()
Shape6.FillColor = &HFFFF&

End Sub

Private Sub Option40_Click()
Shape9.FillColor = &H800080
End Sub

Private Sub Option41_Click()
Shape9.FillColor = &H808080
End Sub

Private Sub Option42_Click()
Shape11.FillColor = &H808000
End Sub

Private Sub Option43_Click()
Shape11.FillColor = &H808080
End Sub

Private Sub Option44_Click()
Shape11.FillColor = &H8000&
End Sub

Private Sub Option45_Click()
Shape11.FillColor = &HFF&
End Sub

Private Sub Option46_Click()
Shape11.FillColor = &HC0C0C0
End Sub

Private Sub Option47_Click()
Shape11.FillColor = &H4080&
End Sub

Private Sub Option48_Click()
Shape11.FillColor = &H0&
End Sub

Private Sub Option49_Click()
Shape11.FillColor = &HD7FF&
End Sub

Private Sub Option5_Click()
Shape6.FillColor = &H8000&

End Sub

Private Sub Option50_Click()
Text3.Visible = False
Label29.Visible = False
Timer3.Enabled = True
Shape13.Visible = True
Shape8.BorderStyle = 0
Shape10.BorderStyle = 0
Shape12.Visible = True
Frame3.Visible = False
Frame5.Visible = False
Line21.Visible = False
Line22.Visible = False
Line23.Visible = False
Line24.Visible = False
Line25.Visible = False
Label17.Visible = False
Line36.Visible = False
Line37.Visible = False
Line38.Visible = False
Line44.Visible = False
Line45.Visible = False
Label24.Visible = False
Label25.Visible = False
Label18.Caption = "3°ANELLO"
Label20.Caption = "4°ANELLO"

Line7.X1 = 1920
Line7.X2 = 3120
Line8.X1 = 3120
Line8.X2 = 3120
Label15.Left = 2040
Line10.X1 = 3120
Line10.X2 = 3000
Line11.X1 = 2040
Line11.X2 = 1920
Frame1.Left = 2040
Line9.X1 = 1920
Line9.X2 = 1920
Label16.Left = 4080
Line12.X1 = 5160
Line12.X2 = 5160
Frame2.Left = 4080
Line13.X1 = 5160
Line13.X2 = 3960
Line14.X1 = 5160
Line14.X2 = 5040
Line15.X1 = 3960
Line15.X2 = 4080
Line6.X1 = 3960
Line6.X2 = 3960
Label18.Left = 6120
Label19.Left = 6045
Frame4.Left = 6120
Line28.X1 = 6000
Line28.X2 = 7200
Line29.X1 = 7200
Line29.X2 = 7200
Line26.X1 = 6000
Line26.X2 = 6000
Line30.X1 = 6120
Line30.X2 = 6000
Line27.X1 = 7200
Line27.X2 = 7080
Label20.Left = 8160
Label21.Left = 8160
Frame7.Left = 8160
Line32.X1 = 8040
Line32.X2 = 9240
Line33.X1 = 9240
Line33.X2 = 9240
Line31.X1 = 8040
Line31.X2 = 8040
Line34.X1 = 9240
Line34.X2 = 9120
Line35.X1 = 8040
Line35.X2 = 8160

End Sub

Private Sub Option51_Click()
Text3.Visible = True
Label29.Visible = True
Timer3.Enabled = True
Shape13.Visible = False
Shape12.Visible = False
Shape10.BorderStyle = 1
Shape8.BorderStyle = 1
Line24.X1 = 5280
Line24.X2 = 5160
Line25.X1 = 4080
Line25.X2 = 4200
Line6.X1 = 2760
Line6.X2 = 2760
Line12.X1 = 3960
Line12.X2 = 3960
Line13.X1 = 3960
Line13.X2 = 2760
Line14.X1 = 3960
Line14.X2 = 3840
Line15.X1 = 2760
Line15.X2 = 2880
Line7.X1 = 1440
Line7.X2 = 2640
Line8.X1 = 2640
Line8.X2 = 2640
Line9.X1 = 1440
Line9.X2 = 1440
Line10.X1 = 2640
Line10.X2 = 2520
Line11.X1 = 1560
Line11.X2 = 1440
Line22.X1 = 5280
Line22.X2 = 5280
Line23.X1 = 4080
Line23.X2 = 5280
Line35.X1 = 6720
Line35.X2 = 6840
Line26.X1 = 5400
Line26.X2 = 5400
Line28.X1 = 5400
Line28.X2 = 6600
Line29.X1 = 6600
Line29.X2 = 6600
Line27.X1 = 6600
Line27.X2 = 6480
Line30.X1 = 5520
Line30.X2 = 5400
Line21.X1 = 4080
Line21.X2 = 4080
Line31.X1 = 6720
Line31.X2 = 6720
Line34.X1 = 7920
Line34.X2 = 7800
Line38.X1 = 9240
Line38.X2 = 9240
Line37.X1 = 8040
Line37.X2 = 9240
Line36.X1 = 8040
Line36.X2 = 8040
Line45.X1 = 8040
Line45.X2 = 8160
Line44.X1 = 9240
Line44.X2 = 9120
Label24.Left = 8160
Label25.Left = 8160
Label20.Left = 6840
Label21.Left = 6840
Label18.Left = 5520
Label19.Left = 5445
Label17.Left = 4200
Label16.Left = 2880
Label15.Left = 1560
Line33.X1 = 7920
Line33.X2 = 7920
Line32.X1 = 6720
Line32.X2 = 7920
Frame3.Visible = True
Label17.Visible = True
Line21.Visible = True
Line22.Visible = True
Line23.Visible = True
Line24.Visible = True
Line25.Visible = True
Frame5.Visible = True
Line36.Visible = True
Line37.Visible = True
Line38.Visible = True
Line44.Visible = True
Line45.Visible = True
Label25.Visible = True
Label24.Visible = True
Label20.Caption = "5°ANELLO"
Label18.Caption = "4°ANELLO"
Frame1.Left = 1560
Frame2.Left = 2880
Frame3.Left = 4200
Frame4.Left = 5520
Frame7.Left = 6840
Frame5.Left = 8160

End Sub

Private Sub Option52_Click()
Text3.Visible = False
Label29.Visible = False
Timer3.Enabled = True
Shape13.Visible = False
Shape12.Visible = True
Shape10.BorderStyle = 0
Shape8.BorderStyle = 1
Frame3.Visible = True
Label17.Visible = True
Line21.Visible = True
Line22.Visible = True
Line23.Visible = True
Line24.Visible = True
Line25.Visible = True
Frame5.Visible = False
Line36.Visible = False
Line37.Visible = False
Line38.Visible = False
Line44.Visible = False
Line45.Visible = False
Label25.Visible = False
Label24.Visible = False
Label20.Caption = "5°ANELLO"
Label18.Caption = "4°ANELLO"

Line33.X1 = 9120
Line33.X2 = 9120
Line32.X1 = 7920
Line32.X2 = 9120
Line31.X1 = 7920
Line31.X2 = 7920
Line35.X1 = 7920
Line35.X2 = 8040
Line34.X1 = 9120
Line34.X2 = 9000
Label20.Left = 8040
Label21.Left = 8040
Frame7.Left = 8040
Line29.X1 = 7560
Line29.X2 = 7560
Line28.X1 = 6360
Line28.X2 = 7560
Line26.X1 = 6360
Line26.X2 = 6360
Line27.X1 = 7560
Line27.X2 = 7440
Line30.X1 = 6480
Line30.X2 = 6360
Label18.Left = 6480
Label19.Left = 6405
Frame4.Left = 6480
Label17.Left = 4920
Frame3.Left = 4920
Line22.X1 = 6000
Line22.X2 = 6000
Line23.X1 = 4800
Line23.X2 = 6000
Line21.X1 = 4800
Line21.X2 = 4800
Line24.X1 = 6000
Line24.X2 = 5880
Line25.X1 = 4800
Line25.X2 = 4920
Line12.X1 = 4440
Line12.X2 = 4440
Line13.X1 = 4440
Line13.X2 = 3240
Line6.X1 = 3240
Line6.X2 = 3240
Line14.X1 = 4440
Line14.X2 = 4320
Line15.X1 = 3240
Line15.X2 = 3360
Label16.Left = 3360
Frame2.Left = 3360
Label15.Left = 1800
Frame1.Left = 1800
Line8.X1 = 2880
Line8.X2 = 2880
Line7.X1 = 1680
Line7.X2 = 2880
Line9.X1 = 1680
Line9.X2 = 1680
Line10.X1 = 2880
Line10.X2 = 2760
Line11.X1 = 1800
Line11.X2 = 1680


End Sub

Private Sub Option53_Click()
Shape10.FillColor = 255
Text3.Text = "50"
End Sub

Private Sub Option54_Click()
Shape10.FillColor = &H4080&
Text3.Text = "100"
End Sub

Private Sub Option55_Click()
Shape10.FillColor = &H0&
Text3.Text = "250"
End Sub

Private Sub Option56_Click()
Shape10.FillColor = &HFF0000
Text3.Text = "10"
End Sub

Private Sub Option57_Click()
Shape10.FillColor = &HFFFF&
Text3.Text = "25"
End Sub

Private Sub Option58_Click()
Shape10.FillColor = &H80FF&
Text3.Text = "15"
End Sub


Private Sub Option59_Click()
Shape10.FillColor = &H8000&
Text3.Text = "20"
End Sub

Private Sub Option6_Click()
Shape6.FillColor = &HFF0000

End Sub

Private Sub Option60_Click()
Shape10.FillColor = &H800080
Text3.Text = "5"
End Sub

Private Sub Option7_Click()
Shape6.FillColor = &H800080

End Sub

Private Sub Option8_Click()
Shape6.FillColor = &H808080

End Sub

Private Sub Option9_Click()
Shape6.FillColor = &HFFFFFF

End Sub

Private Sub Timer1_Timer()
If cont = 81 Then
cont = 0
Else
cont = cont + 1
End If
If cont = 1 Then
Form1.Caption = "R"
End If
If cont = 2 Then
Form1.Caption = "Re"
End If
If cont = 3 Then
Form1.Caption = "Res"
End If
If cont = 4 Then
Form1.Caption = "Resi"
End If
If cont = 5 Then
Form1.Caption = "Resis"
End If
If cont = 6 Then
Form1.Caption = "Resist"
End If
If cont = 7 Then
Form1.Caption = "Resiste"
End If
If cont = 8 Then
Form1.Caption = "Resisten"
End If
If cont = 9 Then
Form1.Caption = "Resistenz"
End If
If cont = 10 Then
Form1.Caption = "Resistenza"
End If
If cont = 11 Then
Form1.Caption = "Resistenza "
End If
If cont = 12 Then
Form1.Caption = "Resistenza E"
End If
If cont = 13 Then
Form1.Caption = "Resistenza El"
End If
If cont = 14 Then
Form1.Caption = "Resistenza Ele"
End If
If cont = 15 Then
Form1.Caption = "Resistenza Elet"
End If
If cont = 16 Then
Form1.Caption = "Resistenza Elett"
End If
If cont = 17 Then
Form1.Caption = "Resistenza Elettr"
End If
If cont = 18 Then
Form1.Caption = "Resistenza Elettri"
End If
If cont = 19 Then
Form1.Caption = "Resistenza Elettric"
End If
If cont = 20 Then
Form1.Caption = "Resistenza Elettrica"
End If
If cont = 21 Then
Form1.Caption = "Resistenza Elettrica "
End If
If cont = 22 Then
Form1.Caption = "Resistenza Elettrica B"
End If
If cont = 23 Then
Form1.Caption = "Resistenza Elettrica By"
End If
If cont = 24 Then
Form1.Caption = "Resistenza Elettrica By "
End If
If cont = 25 Then
Form1.Caption = "Resistenza Elettrica By N"
End If
If cont = 26 Then
Form1.Caption = "Resistenza Elettrica By Ni"
End If
If cont = 27 Then
Form1.Caption = "Resistenza Elettrica By Nie"
End If
If cont = 28 Then
Form1.Caption = "Resistenza Elettrica By Nies"
End If
If cont = 29 Then
Form1.Caption = "Resistenza Elettrica By Niesp"
End If
If cont = 30 Then
Form1.Caption = "Resistenza Elettrica By Niespo"
End If
If cont = 31 Then
Form1.Caption = "Resistenza Elettrica By Niespol"
End If
If cont = 32 Then
Form1.Caption = "Resistenza Elettrica By Niespolo"
End If
If cont = 33 Then
Form1.Caption = "Resistenza Elettrica By Niespolo "
End If
If cont = 34 Then
Form1.Caption = "Resistenza Elettrica By Niespolo V"
End If
If cont = 35 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vi"
End If
If cont = 36 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vin"
End If
If cont = 37 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vinc"
End If
If cont = 38 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vince"
End If
If cont = 39 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vincen"
End If
If cont = 40 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vincenz"
End If
If cont = 41 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vincenzo"
End If
If cont = 42 Then
Form1.Caption = "Resistenza Elettrica By Niespolo Vincenzo"
End If
If cont = 43 Then
Form1.Caption = " esistenza Elettrica By Niespolo Vincenzo"
End If
If cont = 44 Then
Form1.Caption = "  sistenza Elettrica By Niespolo Vincenzo"
End If
If cont = 45 Then
Form1.Caption = "   istenza Elettrica By Niespolo Vincenzo"
End If
If cont = 46 Then
Form1.Caption = "    stenza Elettrica By Niespolo Vincenzo"
End If
If cont = 47 Then
Form1.Caption = "     tenza Elettrica By Niespolo Vincenzo"
End If
If cont = 48 Then
Form1.Caption = "      enza Elettrica By Niespolo Vincenzo"
End If
If cont = 49 Then
Form1.Caption = "       nza Elettrica By Niespolo Vincenzo"
End If
If cont = 50 Then
Form1.Caption = "        za Elettrica By Niespolo Vincenzo"
End If
If cont = 51 Then
Form1.Caption = "         a Elettrica By Niespolo Vincenzo"
End If
If cont = 52 Then
Form1.Caption = "           Elettrica By Niespolo Vincenzo"
End If
If cont = 53 Then
Form1.Caption = "            lettrica By Niespolo Vincenzo"
End If
If cont = 54 Then
Form1.Caption = "             ettrica By Niespolo Vincenzo"
End If
If cont = 55 Then
Form1.Caption = "              ttrica By Niespolo Vincenzo"
End If
If cont = 56 Then
Form1.Caption = "               trica By Niespolo Vincenzo"
End If
If cont = 57 Then
Form1.Caption = "                rica By Niespolo Vincenzo"
End If
If cont = 58 Then
Form1.Caption = "                 ica By Niespolo Vincenzo"
End If
If cont = 59 Then
Form1.Caption = "                  ca By Niespolo Vincenzo"
End If
If cont = 60 Then
Form1.Caption = "                   a By Niespolo Vincenzo"
End If
If cont = 61 Then
Form1.Caption = "                     By Niespolo Vincenzo"
End If
If cont = 62 Then
Form1.Caption = "                     By Niespolo Vincenzo"
End If
If cont = 63 Then
Form1.Caption = "                      y Niespolo Vincenzo"
End If
If cont = 64 Then
Form1.Caption = "                        Niespolo Vincenzo"
End If
If cont = 65 Then
Form1.Caption = "                        Niespolo Vincenzo"
End If
If cont = 66 Then
Form1.Caption = "                         iespolo Vincenzo"
End If
If cont = 67 Then
Form1.Caption = "                          espolo Vincenzo"
End If
If cont = 68 Then
Form1.Caption = "                           spolo Vincenzo"
End If
If cont = 69 Then
Form1.Caption = "                            polo Vincenzo"
End If
If cont = 70 Then
Form1.Caption = "                             olo Vincenzo"
End If
If cont = 71 Then
Form1.Caption = "                              lo Vincenzo"
End If
If cont = 72 Then
Form1.Caption = "                               o Vincenzo"
End If
If cont = 73 Then
Form1.Caption = "                                 Vincenzo"
End If
If cont = 74 Then
Form1.Caption = "                                 Vincenzo"
End If
If cont = 75 Then
Form1.Caption = "                                  incenzo"
End If
If cont = 76 Then
Form1.Caption = "                                   ncenzo"
End If
If cont = 77 Then
Form1.Caption = "                                    cenzo"
End If
If cont = 78 Then
Form1.Caption = "                                     enzo"
End If
If cont = 79 Then
Form1.Caption = "                                      nzo"
End If
If cont = 80 Then
Form1.Caption = "                                       zo"
End If
If cont = 81 Then
Form1.Caption = "                                        o"
End If
If cont = 81 Then
Form1.Caption = "                                         "
End If



End Sub

Private Sub Timer2_Timer()

If Shape6.FillColor = &H4080& Then
a = 100
End If
If Shape6.FillColor = &HFF& Then
a = 200
End If
If Shape6.FillColor = &H80FF& Then
a = 300
End If
If Shape6.FillColor = &HFFFF& Then
a = 400
End If
If Shape6.FillColor = &H8000& Then
a = 500
End If
If Shape6.FillColor = &HFF0000 Then
a = 600
End If
If Shape6.FillColor = &H800080 Then
a = 700
End If
If Shape6.FillColor = &H808080 Then
a = 800
End If
If Shape6.FillColor = &HFFFFFF Then
a = 900
End If
If Shape7.FillColor = &H0& Then
b = 0
End If
If Shape7.FillColor = &H4080& Then
b = 10
End If
If Shape7.FillColor = &HFF& Then
b = 20
End If
If Shape7.FillColor = &H80FF& Then
b = 30
End If
If Shape7.FillColor = &HFFFF& Then
b = 40
End If
If Shape7.FillColor = &H8000& Then
b = 50
End If
If Shape7.FillColor = &HFF0000 Then
b = 60
End If
If Shape7.FillColor = &H800080 Then
b = 70
End If
If Shape7.FillColor = &H808080 Then
b = 80
End If
If Shape7.FillColor = &HFFFFFF Then
b = 90
End If
If Shape13.Visible = False Then
If Shape8.FillColor = &H0& Then
c = 0
End If
If Shape8.FillColor = &H4080& Then
c = 1
End If
If Shape8.FillColor = &HFF& Then
c = 2
End If
If Shape8.FillColor = &H80FF& Then
c = 3
End If
If Shape8.FillColor = &HFFFF& Then
c = 4
End If
If Shape8.FillColor = &H8000& Then
c = 5
End If
If Shape8.FillColor = &HFF0000 Then
c = 6
End If
If Shape8.FillColor = &H800080 Then
c = 7
End If
If Shape8.FillColor = &H808080 Then
c = 8
End If
If Shape8.FillColor = &HFFFFFF Then
c = 9
End If
End If
Text1.Text = a + b + c
If Option50.Value = True Then
Text1.Text = (a + b) / 10
End If
If Shape9.FillColor = &H0& Then
d = 1
End If
If Shape9.FillColor = &H4080& Then
d = 10
End If
If Shape9.FillColor = &HFF& Then
d = 100
End If
If Shape9.FillColor = &H80FF& Then
d = 1000
End If
If Shape9.FillColor = &HFFFF& Then
d = 10000
End If
If Shape9.FillColor = &H8000& Then
d = 100000
End If
If Shape9.FillColor = &HFF0000 Then
d = 1000000
End If
If Shape9.FillColor = &H800080 Then
d = 10000000
End If
If Shape9.FillColor = &H808080 Then
d = 100000000
End If
If Shape9.FillColor = &HC0C0C0 Then
d = 0.01
End If
If Shape9.FillColor = &HD7FF& Then
d = 0.1
End If
Text1.Text = Text1.Text * d
If Shape11.FillColor = &HC0C0C0 Then
Text2.Text = "10"
End If
If Shape11.FillColor = &HD7FF& Then
Text2.Text = "5"
End If
If Shape11.FillColor = &H0& Then
Text2.Text = "20"
End If
If Shape11.FillColor = &H4080& Then
Text2.Text = "1"
End If
If Shape11.FillColor = &HFF& Then
Text2.Text = "2"
End If
If Shape11.FillColor = &H8000& Then
Text2.Text = "0.5"
End If
If Shape11.FillColor = &H808080 Then
Text2.Text = "30"
End If
If Shape11.FillColor = &H808000 Then
Text2.Text = "20"
End If


End Sub

Private Sub Timer3_Timer()
If Option50.Value = True Then
Option1.Value = True
Option11.Value = True
Option33.Value = True
Option49.Value = True
Timer2.Enabled = True
Timer3.Enabled = False
End If
If Option52.Value = True Then
Option1.Value = True
Option11.Value = True
Option20.Value = True
Option33.Value = True
Option49.Value = True
Timer2.Enabled = True
Timer3.Enabled = False
End If
If Option51.Value = True Then
Option1.Value = True
Option11.Value = True
Option20.Value = True
Option33.Value = True
Option49.Value = True
Option30.Value = True
Timer2.Enabled = True
Timer3.Enabled = False
End If
End Sub

Private Sub Timer4_Timer()
If Timer2.Enabled = False Then
Option50.Value = True
Timer4.Enabled = False
End If
End Sub

Private Sub Timer5_Timer()

Label30.ForeColor = &HFF&
Timer6.Enabled = True
Timer5.Enabled = False

End Sub

Private Sub Timer6_Timer()

Label30.ForeColor = &H0&
Timer5.Enabled = True
Timer6.Enabled = False

End Sub
