[Sesa_Mina]

Mich graust vor dem Programmieransatz.

Für sowas brauchst keine Variablen-arrays sondern ein array aus Objekten.

Siehe angehängstes "Projekt"

Option Explicit ' Damit auch alle Variablen schön brav deklariert werden müssen :)

Private Sub btnZufall_Click()
   Dim X As Long
   For X = 0 To 9
      Image1(X).Picture = LampeAus.Picture
   Next
   X = Int(Rnd * 10) '0-9
   Image1(X).Picture = LampeEin.Picture
End Sub

Private Sub Form_Load()
   Dim X As Long, Y As Long
   
   Me.Show           ' <= Muss sichtbar sein sonst sieht ma dynamisch nachgeladene
                     '    controls nicht.
   Randomize Timer   ' <= brauxt nur einmal initialisieren.
   
   ' Controls dynamisch nachladen.
   For Y = 0 To 1
      For X = 0 To 4
         If (Y * 5 + X) > 0 Then
            ' Nachdem image1(0) schon existiert muss es nicht geladen werden
            Load Image1(Y * 5 + X)
            Image1(Y * 5 + X).Visible = True
            Image1(Y * 5 + X).Top = 2 + Image1(0).Height * Y
            Image1(Y * 5 + X).Left = 2 + Image1(0).Width * X
         End If
         Image1(Y * 5 + X).Picture = LampeAus.Picture
      Next
   Next
   
End Sub