SoloCodigo

Debe definir el puerto a trabajar como una constante, por ejemplo para el caso del puerto paralelo sería:

Const puerto = &H378

Luego activar un timer para ir dibujando los datos que ingresan por el puerto, por ejemplo de esta manera (es sólo un ejemplo):

_________________________________

Private Sub Timer1_Timer()
    Out puerto + 2, 32
    D = Inp(puerto)
    x = x + 1
    If D = 255 Then
        y = D / 11.590909
    Else
        y = D - 22
    End If
   
    If x = 250 Then
            x = 0
        Picture1.CurrentX = 0
        Picture1.CurrentY = 22
        Picture1.Refresh
     End If
   
    Picture1.Line -(x, y), vbWhite
    Text1.Text = D
   End Sub

_________________________________

Puede encontrar más información acerca de la librería en la dirección www.logix4u.net

Aquí adjunto el archivo que se descarga de allí. Mucha suerte y Chao!