利用vb.net來監視和讀取並口的數據如何操作

'Timer1.Enabled = False

'x1 = 0

'Do While x1 <> 40000

'x1 = x1 + 1

'Loop

'x1 = 0

x2 = x2 Xor 255

If x2 = 0 Then

D = &HFF

Out32 &H378, D

Shape1.FillColor = &HFF&

Else:

Shape1.FillColor = &HFF00&

D = &H0

Out32 &H378, D

End If

End Sub