Public Class Form1
    Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal _
      PortAddress As Integer) As Integer
    Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress _
    As Integer, ByVal Value As Integer)
    Dim bmp As New Bitmap(1024, 200)
    Dim g As Graphics = Graphics.FromImage(bmp)
    Dim daten(999) As Byte
    Dim zähler As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        daten(zähler) = Inp(889) And 8                    'Pin 15-Test
        g.DrawLine(Pens.Gray, zähler, 99, zähler, 100)
        If daten(zähler) = 0 Then
            g.DrawLine(Pens.Yellow, zähler, 50, zähler, 98)
        End If
        PictureBox1.Image = bmp
        zähler += 1
        If zähler >= 1000 Then
            g.Clear(Color.Black)
            zähler = 0
            ' nun könnte man die gelben Balken zählen
        End If
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        g.Dispose()
        bmp.Dispose()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Text = "10mS-Datenmonitor"
        'g.Clear(Color.Black)
        'PictureBox1.Image = bmp
        Me.Size = New Size(1000, 200)
        PictureBox1.Size = New Size(1000, 200)
        PictureBox1.BackColor = Color.Black
    End Sub
End Class