Probiers mal so



Code:
Dim Lampe(22) As Byte


Lampe(1) Alias Portb.1
Lampe(2) Alias Portc.1



 For i = 1 to 22
Lampe(i) = 1
Next