Option Explicit
Const LPT_Schnittstelle = &H378
 
'Datenleitung D0 --> Wert = 1 --> Pin 2
'Datenleitung D1 --> Wert = 2 --> Pin 3
'Datenleitung D2 --> Wert = 4 --> Pin 4
'Datenleitung D3 --> Wert = 8 --> Pin 5
'Datenleitung D4 --> Wert = 16 --> Pin 6
'Datenleitung D5 --> Wert = 32 --> Pin 7
'Datenleitung D6 --> Wert = 64 --> Pin 8
'Datenleitung D7 --> Wert = 128 --> Pin 9
'##############################################################################
' ###
 
Private Sub vorwärts_Click()
 
Call Out(LPT_Schnittstelle, 1)
 
End Sub
 
Private Sub vorwärts_stop_Click()
 
Call Out(LPT_Schnittstelle, Not 1)
 
End Sub

Never argue with an id?ot, they drag you down to their level and beat you with experience!