Ich habe folgendes eingegeben:
Code:
Sub scan_DigitalAll()
Dim i As Integer
Dim a As Long
a = ReadAllDigital
Do While i < 1000
    Label1.Caption = a
    i = i + 1
Loop
End Sub
Und es ändert sich nichts...
Es wird nur Label1 angezeigt.

Füge ich aber eine Schaltfläche hinzu und gebe es ein:
Code:
Private Sub CommandButton3_Click()
MsgBox ReadAllDigital
Label1.Caption = ReadAllDigital
End Sub
dann wird beim Klick eine MessageBox mit dem Wert angezeigt und Label1 zeigt auch den richtigen Wert an.
Nur es klappt nicht, dass Label1 ständig ohne irgendwelche Klicks immer den aktuellen Wert anzeigt...