Cómo usar vb.net para monitorear y leer datos del puerto paralelo

Private Sub Timer1_Timer()

'Timer1.Enabled = False

'x1 = 0

'Hacer mientras x1 <> 40000

'x1 = x1 + 1

'Bucle

'x1 = 0

x2 = x2 Xor 255

Si x2 = 0 Entonces

D = &HFF

Out32 &H378, D

Shape1.FillColor = &HFF&

Si no:

Shape1.FillColor = &HFF00&

D = &H0

Out32 &H378, D

Fin si

End Sub