hi

ich habe bereits ein recht verständliches prog gefunden.
allerdings kommt in dem folgenden abschnitt ein index vor, mit dem ich nicht umgehen kann:

Private Sub Timer1_Timer()
Dim Alt As Integer
Dim Wert As Integer
Dim i As Integer
Alt = Kontroll
Kontroll = Inp(Val(AdresseK))
If Alt <> Kontroll Then
Wert = Kontroll
For i = 0 To 6
If Wert Mod 2 = 0 Then
chkEing(i).Value = 1
Else
chkEing(i).Value = 0
End If
Wert = Wert \ 2
Next i
i = 7
If Wert Mod 2 = 0 Then
chkEing(i).Value = 0
Else
chkEing(i).Value = 1
End If
End If

End Sub


mit dem For i = 0 to 6 komme ich nicht klar!
die checkboxen zur ausgabe heißen alle chkEing haben aber alle nen unterschiedlichen index.
wie kann ich die namen zB in chkEing1 OHNE irgendeinen index umbenennen und in obrigen code einbauen?

es müssen 5 chkEing sein.

^{*Threadedit* 27.09.2009, 12:20:14
Admininfo: Führ bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.}