Visual Basic - Auxilio VB & Flash y con el peje

Hola:

Tengo problemas con un aplicacion de VB y flash, estoy usando el siguiente codigo:

Option Explicit

Declare Sub PortOut Lib "C:\WINDOWS\system32\io.dll" (ByVal PortAddress As Integer, ByVal Valor As Integer)
Declare Function PortIn Lib "C:\WINDOWS\system32\io.dll" (ByVal PortAddress As Integer) As Integer


Private Sub swfPelicula_FSCommand(ByVal command As String, ByVal avance As String)
Select Case command

Case "loadingAnim"
If avance = "stop" Then
Call PortOut(&H378, 1)



End If
End Select

End Sub

Private Sub Timer1_Timer()

txtLectura.Text = PortIn(&H379)
If txtLectura.Text = "824" Then
swfPelicula.Playing = True
Timer1.Enabled = False

End If
End Sub
Private Sub Timer2_Timer()
txtLectura.Text = PortIn(&H379)
If txtLectura.Text = "1016" Then
swfPelicula.Playing = True
Timer2.Enabled = False



Call PortOut(&H378, 2)
End If


End Sub

Estoy usando Timers para leer el puerto paralelo, pero quiero hacerlo de otra forma sin usar esto.

Como le puedo Hacer.

Saludos desde chihuahua.