
Sub Check3D1_Click (Value As Integer)
  hrevio1.InvertIn = Value
End Sub

Sub Check3D2_Click (Value As Integer)
  hrevio1.InvertOut = Value
End Sub

Sub Command1_Click ()
   hrevio1.Enabled = True
End Sub

Sub Command2_Click ()
   hrevio1.Enabled = False
End Sub

Sub Command3_Click ()
   End
End Sub

Sub Command4_Click ()
  cnt = 0
End Sub

Sub Form_Load ()
  res = 100
  cnt = 0
  text1.Text = "Resolution: " + Str$(res) + " mS"
  Option3d1.Value = True
  Check3d1 = True
  text2.Text = "0"
  Rem *** text3.Text = "0"
End Sub

Sub HREVIO1_BitIn7 ()
    cnt = cnt + 1
End Sub

Sub Option3D1_Click (Value As Integer)
  hrevio1.TimerSelect = 1
End Sub

Sub Option3D2_Click (Value As Integer)
   hrevio1.TimerSelect = 2
End Sub

Sub Spin1_SpinDown ()
  res = hrevio1.Resolution
  res = res - 5
  If res < 5 Then res = 5
  hrevio1.Resolution = res
  text1.Text = "Resolution: " + Str$(res) + " mS"
End Sub

Sub Spin1_SpinUp ()
  res = hrevio1.Resolution
  res = res + 5
  If res < 5 Then res = 5
  hrevio1.Resolution = res
  text1.Text = "Resolution: " + Str$(res) + " mS"
End Sub

Sub Spin2_SpinDown ()
  hrevio1.DataOut = hrevio1.DataOut - 1
   text2.Text = Str$(hrevio1.DataOut)
End Sub

Sub Spin2_SpinUp ()
    hrevio1.DataOut = hrevio1.DataOut + 1
    text2.Text = Str$(hrevio1.DataOut)
End Sub

Sub Timer1_Timer ()
   Rem ***  text3.Text = Str$(cnt)
End Sub

Sub VScroll1_Change ()
    hrevio1.DataOut = hrevio1.DataOut + 1
End Sub

