Visual CSharp .NET - timer en puerto paralelo

Dim a As Integer

Private Sub Command1_Click()
Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()
a = a + 1
If a = 1 Then
Shape1.FillColor = &HFF
End If
If a = 2 Then
Shape2.FillColor = &HFF
Shape1.FillColor = &H0&
'Call portout(&H378, 0)
End If
If a = 3 Then
Shape3.FillColor = &HFF
Shape2.FillColor = &H0&
'callportout(&h378,1)
End If
If a = 4 Then
Shape4.FillColor = &HFF
Shape3.FillColor = &H0&
End If
If a = 5 Then
Shape5.FillColor = &HFF
Shape4.FillColor = &H0&
End If
If a = 6 Then
Shape6.FillColor = &HFF
Shape5.FillColor = &H0&
End If
If a = 7 Then
Shape7.FillColor = &HFF
Shape6.FillColor = &H0&
End If
If a = 8 Then
Shape8.FillColor = &HFF
Shape7.FillColor = &H0&
End If
Timer2.Interval = 100

End Sub

Private Sub Timer2_Timer()


End Sub
por favor ayudenme a devolver la secuencia con el mismo boton

Q ONDA UN FAVORSOTE ME PODRIAS ESPLICAR TU CODIGO Y CUAL ES SU FUNCION