VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   10476
   ClientLeft      =   708
   ClientTop       =   936
   ClientWidth     =   15468
   LinkTopic       =   "Form1"
   ScaleHeight     =   10476
   ScaleWidth      =   15468
   Begin VB.Timer cleanUpTimer 
      Interval        =   500
      Left            =   11040
      Top             =   120
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   7
      Left            =   12120
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   133
      Top             =   7560
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   6
      Left            =   12120
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   128
      Top             =   5400
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   5
      Left            =   12120
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   123
      Top             =   3240
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   4
      Left            =   12120
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   118
      Top             =   1080
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   3
      Left            =   4440
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   113
      Top             =   7560
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   2
      Left            =   4440
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   108
      Top             =   5400
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   1
      Left            =   4440
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   103
      Top             =   3240
      Width           =   1935
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   0
      Left            =   6600
      TabIndex        =   99
      Top             =   1080
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   0
      Left            =   4440
      ScaleHeight     =   157
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   157
      TabIndex        =   98
      Top             =   1080
      Width           =   1935
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   7
      Left            =   7800
      TabIndex        =   86
      Top             =   7440
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   7
         Left            =   1440
         TabIndex        =   91
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   7
         Left            =   2280
         TabIndex        =   90
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   7
         Left            =   1680
         TabIndex        =   89
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   7
         Left            =   2520
         TabIndex        =   88
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   7
         ItemData        =   "Form1.frx":0000
         Left            =   3120
         List            =   "Form1.frx":000D
         TabIndex        =   87
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   7
         Left            =   1080
         TabIndex        =   92
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   97
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   96
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   95
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   7
         Left            =   3120
         TabIndex        =   94
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   7
         Left            =   1800
         TabIndex        =   93
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   6
      Left            =   7800
      TabIndex        =   74
      Top             =   5280
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   6
         Left            =   1440
         TabIndex        =   79
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   6
         Left            =   2280
         TabIndex        =   78
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   6
         Left            =   1680
         TabIndex        =   77
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   6
         Left            =   2520
         TabIndex        =   76
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   6
         ItemData        =   "Form1.frx":001A
         Left            =   3120
         List            =   "Form1.frx":0027
         TabIndex        =   75
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   6
         Left            =   1080
         TabIndex        =   80
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   85
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   84
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   83
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   6
         Left            =   3120
         TabIndex        =   82
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   6
         Left            =   1800
         TabIndex        =   81
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   5
      Left            =   7800
      TabIndex        =   62
      Top             =   3120
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   5
         Left            =   1440
         TabIndex        =   67
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   5
         Left            =   2280
         TabIndex        =   66
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   5
         Left            =   1680
         TabIndex        =   65
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   5
         Left            =   2520
         TabIndex        =   64
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   5
         ItemData        =   "Form1.frx":0034
         Left            =   3120
         List            =   "Form1.frx":0041
         TabIndex        =   63
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   5
         Left            =   1080
         TabIndex        =   68
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   73
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   72
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   71
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   5
         Left            =   3120
         TabIndex        =   70
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   5
         Left            =   1800
         TabIndex        =   69
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   4
      Left            =   7800
      TabIndex        =   50
      Top             =   960
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   4
         Left            =   1440
         TabIndex        =   55
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   4
         Left            =   2280
         TabIndex        =   54
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   4
         Left            =   1680
         TabIndex        =   53
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   4
         Left            =   2520
         TabIndex        =   52
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   4
         ItemData        =   "Form1.frx":004E
         Left            =   3120
         List            =   "Form1.frx":005B
         TabIndex        =   51
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   4
         Left            =   1080
         TabIndex        =   56
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   61
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   60
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   59
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   4
         Left            =   3120
         TabIndex        =   58
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   4
         Left            =   1800
         TabIndex        =   57
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 3"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   3
      Left            =   120
      TabIndex        =   38
      Top             =   7440
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   3
         Left            =   1440
         TabIndex        =   43
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   3
         Left            =   2280
         TabIndex        =   42
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   3
         Left            =   1680
         TabIndex        =   41
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   3
         Left            =   2520
         TabIndex        =   40
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   3
         ItemData        =   "Form1.frx":0068
         Left            =   3120
         List            =   "Form1.frx":0075
         TabIndex        =   39
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   3
         Left            =   1080
         TabIndex        =   44
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   49
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   48
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   47
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   3
         Left            =   3120
         TabIndex        =   46
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   3
         Left            =   1800
         TabIndex        =   45
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 2"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   2
      Left            =   120
      TabIndex        =   26
      Top             =   5280
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   2
         Left            =   1440
         TabIndex        =   31
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   2
         Left            =   2280
         TabIndex        =   30
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   2
         Left            =   1680
         TabIndex        =   29
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   2
         Left            =   2520
         TabIndex        =   28
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   2
         ItemData        =   "Form1.frx":0082
         Left            =   3120
         List            =   "Form1.frx":008F
         TabIndex        =   27
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   2
         Left            =   1080
         TabIndex        =   32
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   37
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   36
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   35
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   2
         Left            =   3120
         TabIndex        =   34
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   2
         Left            =   1800
         TabIndex        =   33
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 1"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   1
      Left            =   120
      TabIndex        =   14
      Top             =   3120
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   1
         Left            =   1440
         TabIndex        =   19
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   1
         Left            =   2280
         TabIndex        =   18
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   1
         Left            =   1680
         TabIndex        =   17
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   1
         Left            =   2520
         TabIndex        =   16
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   1
         ItemData        =   "Form1.frx":009C
         Left            =   3120
         List            =   "Form1.frx":00A9
         TabIndex        =   15
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   1
         Left            =   1080
         TabIndex        =   20
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   25
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   24
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   23
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   1
         Left            =   3120
         TabIndex        =   22
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   1
         Left            =   1800
         TabIndex        =   21
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   4215
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   0
         ItemData        =   "Form1.frx":00B6
         Left            =   3120
         List            =   "Form1.frx":00C3
         TabIndex        =   12
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   0
         Left            =   2520
         TabIndex        =   10
         Top             =   1560
         Width           =   615
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   0
         Left            =   1680
         TabIndex        =   9
         Text            =   "300"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   0
         Left            =   2280
         TabIndex        =   7
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   0
         Left            =   1440
         TabIndex        =   6
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   0
         Left            =   1080
         TabIndex        =   3
         Top             =   240
         Width           =   2895
         _ExtentX        =   5101
         _ExtentY        =   656
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   20
         Value           =   20
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   0
         Left            =   1800
         TabIndex        =   13
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   0
         Left            =   3120
         TabIndex        =   11
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   8
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   5
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   4
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   11640
      Top             =   120
   End
   Begin VB.CommandButton GoBtn 
      Caption         =   "Go"
      Enabled         =   0   'False
      Height          =   255
      Left            =   2520
      TabIndex        =   1
      Top             =   600
      Width           =   855
   End
   Begin VB.CommandButton InitBtn 
      Caption         =   "Init"
      Height          =   255
      Left            =   2520
      TabIndex        =   0
      Top             =   240
      Width           =   855
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   1
      Left            =   6600
      TabIndex        =   104
      Top             =   3240
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   2
      Left            =   6600
      TabIndex        =   109
      Top             =   5400
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   3
      Left            =   6600
      TabIndex        =   114
      Top             =   7560
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   4
      Left            =   14280
      TabIndex        =   119
      Top             =   1080
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   5
      Left            =   14280
      TabIndex        =   124
      Top             =   3240
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   6
      Left            =   14280
      TabIndex        =   129
      Top             =   5400
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   7
      Left            =   14280
      TabIndex        =   134
      Top             =   7560
      Width           =   375
      _ExtentX        =   656
      _ExtentY        =   3408
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   7
      Left            =   14760
      TabIndex        =   137
      Top             =   8400
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   7
      Left            =   14760
      TabIndex        =   136
      Top             =   7560
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   7
      Left            =   14760
      TabIndex        =   135
      Top             =   9240
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   6
      Left            =   14760
      TabIndex        =   132
      Top             =   6240
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   6
      Left            =   14760
      TabIndex        =   131
      Top             =   5400
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   6
      Left            =   14760
      TabIndex        =   130
      Top             =   7080
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   5
      Left            =   14760
      TabIndex        =   127
      Top             =   4080
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   5
      Left            =   14760
      TabIndex        =   126
      Top             =   3240
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   5
      Left            =   14760
      TabIndex        =   125
      Top             =   4920
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   4
      Left            =   14760
      TabIndex        =   122
      Top             =   1920
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   4
      Left            =   14760
      TabIndex        =   121
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   4
      Left            =   14760
      TabIndex        =   120
      Top             =   2760
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   3
      Left            =   7080
      TabIndex        =   117
      Top             =   8400
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   3
      Left            =   7080
      TabIndex        =   116
      Top             =   7560
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   3
      Left            =   7080
      TabIndex        =   115
      Top             =   9240
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   2
      Left            =   7080
      TabIndex        =   112
      Top             =   6240
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   2
      Left            =   7080
      TabIndex        =   111
      Top             =   5400
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   2
      Left            =   7080
      TabIndex        =   110
      Top             =   7080
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   1
      Left            =   7080
      TabIndex        =   107
      Top             =   4080
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   1
      Left            =   7080
      TabIndex        =   106
      Top             =   3240
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   1
      Left            =   7080
      TabIndex        =   105
      Top             =   4920
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   0
      Left            =   7080
      TabIndex        =   102
      Top             =   1920
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   0
      Left            =   7080
      TabIndex        =   101
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   0
      Left            =   7080
      TabIndex        =   100
      Top             =   2760
      Width           =   255
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Cardnum As Integer
Dim previousReadings(8) As Integer
Dim currentReadings(8) As Integer
Dim currentRes(8) As Integer

Private Sub doPaintBoxes(Index As Integer)

    Cardnum = 0
    
    Dim rpm As Double
    Dim angle As Double
    Dim x, y As Integer

    rpm = currentReadings(Index) - previousReadings(Index)
    rpm = rpm / currentRes(Index)
    rpm = rpm * 60 / (Timer1.Interval * 0.001)
    rpm = Abs(rpm)
    
    currentRPMlbl(Index).Caption = rpm
    
        
    If rpm > RPMBar(Index).Max Then
        PaintBox(Index).FillColor = RGB(&HFF, 0, 0)
        RPMBar(Index).Value = RPMBar(Index).Max
    Else
        PaintBox(Index).FillColor = RGB(&HFF, &HFF, &HFF)
        RPMBar(Index).Value = rpm
    End If
           
    PaintBox(Index).Circle (60, 60), 50, RGB(0, 0, 0)
    PaintBox(Index).Line (60, 60)-(60, 110), RGB(0, 0, 0)
    
    
    angle = currentReadings(Index)
    
    angle = angle * 2 * PI
    
    angle = angle / (currentRes(Index) * multbox(Index).Text) - 0.5 * PI
    
    x = 60 - 50 * Cos(angle)
    y = 60 - 50 * Sin(angle)
    
    PaintBox(Index).Line (60, 60)-(x, y), RGB(0, &HFF, 0)
        

End Sub

Private Sub cleanUpTimer_Timer()
    'every once in a while clean up the paint boxes
    Dim count As Integer
    
    For count = 0 To 7
        doPaintBoxes (count)
    Next count
    
    
End Sub

Private Sub Form_Load()
    Dim count As Integer
    
    For count = 0 To 7
        currentRes(count) = 300
    Next count
End Sub

Private Sub GoBtn_Click()
    Timer1.Enabled = True
End Sub

Private Sub InitBtn_Click()
    Dim count As Integer
    
    For count = 0 To 7
        previousReadings(count) = 0
        currentReadings(count) = 0
        doPaintBoxes count
        frame(count).Enabled = True
    Next count
    
    Init_7766 Cardnum
    
    GoBtn.Enabled = True
    
End Sub

Private Sub maxRpmSlider_Change(Index As Integer)
    maxRPMsliderLbl(Index).Caption = maxRpmSlider(Index).SelStart
    maxRPMbarLbl(Index).Caption = maxRpmSlider(Index).SelStart
    RPMBar(Index).Max = maxRpmSlider(Index).SelStart
End Sub

Private Sub multbox_Click(Index As Integer)
     SetQuadCountMode_7766 Index, multbox(Index).ListIndex + 1  ' index is 0,1,2,3 for card,  NoQuad, x1, x2, x4  we skip zero here
End Sub

Private Sub ResetBtn_Click(Index As Integer)
    Reset_7766 Index
End Sub

Private Sub SetBtn_Click(Index As Integer)
    currentRes(Index) = resolution(Index).Text
End Sub

Private Sub Timer1_Timer()
Dim count As Integer

    For count = 0 To 7
        previousReadings(count) = currentReadings(count)
        currentReadings(count) = Read_7766_ol(count)
        
        If previousReadings(count) <> currentReadings(count) Then
            doPaintBoxes (count)
            CurrentReading(count).Text = currentReadings(count)
            
        End If
    Next count
    
End Sub