Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        OPENCOM("COM1:")
        RTS(1)
        DTR(1)
        TXD(1)
        DELAY(2000)
        RTS(0)
        DTR(0)
        TXD(0)
    End Sub
 
    Shared Sub Laufen()
        Do
            RTS(1)
            DELAY(500)
            DTR(1)
            DELAY(500)
            TXD(1)
            DELAY(500)
            RTS(0)
            DELAY(500)
            DTR(0)
            DELAY(500)
            TXD(0)
            DELAY(500)
        Loop
    End Sub
 
    Shared Sub btnstart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnstart.Click
        Dim Lauflicht As New Threading.Thread(AddressOf Laufen)
        Lauflicht.Start()
    End Sub
 
    Shared Sub btnstop_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnstop.Click
        Lauflicht.Abort()
    End Sub
End Class

   Shared Sub btnstart_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnstart.Click
        Dim Lauflicht As New Threading.Thread(AddressOf Laufen)
        Lauflicht.Start()
    End Sub

 Shared Sub btnstop_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btnstop.Click
        Lauflicht.Abort()
    End Sub