License and terms of use

Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public pwrite As Integer

Private Sub Command1_Click()
    Timer1.Enabled = True
    Timer2.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
End Sub

Private Sub Command2_Click()
    Timer2.Enabled = True
    Timer1.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
End Sub

Private Sub Command3_Click()
    Timer3.Enabled = True
    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer4.Enabled = False
End Sub

Private Sub Command4_Click()
    Timer4.Enabled = True
    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer3.Enabled = False
End Sub

Private Sub Command5_Click()
    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
End Sub

Private Sub Form_Load()
    Command1.Caption = "Forward"
    Command2.Caption = "Reverse"
    Command3.Caption = "Forware"
    Command4.Caption = "Reverse"
    Command5.Caption = "Stop"
    HScroll1.Min = 0
    HScroll1.Max = 25
    Timer1.Interval = 10
    Timer2.Interval = 10
    Timer3.Interval = 10
    Timer4.Interval = 10
    Timer1.Enabled = False
    Timer2.Enabled = False
    Timer3.Enabled = False
    Timer4.Enabled = False
    pwrite = &H378
    Out pwrite, &H0
End Sub

Private Sub Timer1_Timer()
    Out pwrite, &H3
    Sleep (HScroll1.Value)
    Out pwrite, &H0
    Sleep (HScroll1.Value)
End Sub

Private Sub Timer2_Timer()
    Out pwrite, &H5
    Sleep (HScroll1.Value)
    Out pwrite, &H0
    Sleep (HScroll1.Value)
End Sub

Private Sub Timer3_Timer()
    Out pwrite, &H30
    Sleep (HScroll1.Value)
    Out pwrite, &H0
    Sleep (HScroll1.Value)
End Sub

Private Sub Timer4_Timer()
    Out pwrite, &H50
    Sleep (HScroll1.Value)
    Out pwrite, &H0
    Sleep (HScroll1.Value)
End Sub

Title with a link - Example of heading 2