✔ Aus ListBox lesen

[Terminator2]

Hi,

Ich habe in meiner Form "msgWin" eine ListBox "List1". In diese kopiere ich bei bestimmten Ereignissen Texte hinein. Diese lauten immer 1 bis 8.
Je nachdem welche Ereignisse kommen, sind einige Werte in der ListBox vorhanden. Diese will ich dann nacheinander (Zuerst die erste, dann die zweite usw.) auslesen und prüfen. Dann soll bei jeder Zahl (1 bis 8) die Möglichkeit bestehen, verschiedene Funktionen auszuführen.
Hier erstmal der Quelltext vom reinkopieren in die ListBox:

Dim i   As Long

If meMPIO1.Attached Then
    If connect = 1 Then
        For i = 1 To 8
            If IIf(meMPIO1.GetCachedLine(1, i), "1", "0") = 1 Then
                msgWin.List1.AddItem i
            End If
        Next i
    End If
End If

Mit einem Button will ich dann eine Sub aufrufen, die dann die Werte alle nacheinander ausliest und dann irgendwas ausführt.

Schon mal Danke!

 

[Shakie]

Ja und wo liegt jetzt das Problem? Oder wolltest du uns nur einfach mitteilen, was du gerade so programmierst, weil du so ein gesprächiger Mensch bist?