todavia nop ... lo puse como dijiste

Dim envia As String
Dim recibe As String

Private Sub Form_Load()
Label2.Visible = False
Out &H378, 0 'Apaga todas las salidas del puerto LPT1
Out &H378, 1 'Prende numero 2 en la salidas del puerto LPT1
End Sub

Private Sub Timer1_Timer()
Label1.Visible = False
recibe = Inp(&H379)
Text1.Text = recibe

If recibe = 71 Then
Text1.Text = "Entrada 11 Detectada"
Label2.Visible = True
End If

End Sub

y no pasa nada  :'(

Hola sabes que todavia no puedo hacer que funcione mira te envio el codigo me podrias decir que me falta porfa ...

Dim recibe As String

Private Sub Form_Load()
Label2.Visible = False
Out &H378, 0 'Apaga todas las salidas del puerto LPT1

End Sub

Private Sub Command1_Click()
Label1.Visible = False
Out &H378, 1 'Prende numero 2 en la salidas del puerto LPT1
recibe = Inp(&H379)
MsgBox recibe

If recibe = 71 Then
 MsgBox "Entrada 11 Detectada"
 Label2.Visible = True
End If
End Sub

y no se por que no me funciona de antemano gracias...

holas queria saber si me puedes ayudar necesito hacer un programa en visual basic con una alarma cuando la alarma detecte un movimiento manda un pulso al puerto paralelo y visual despliega un mensaje por pantalla... pero no se como hacerlo y con cuantos voltajes trabaja me podrias ayudar por fa...