Elektronischer Zettelkasten: Wie codiert man eine Schleife?

[Anfänger]

Ich arbeite mich in VB mit der Erstellung eines elektronischen Zettelkastenprogramms ein und kann bis jetzt Image-Controls Bilder zuordnen und diese dann nacheinander im Vollbildmodus anzeigen.
Nachdem für jede Bild-Anzeige eine eigene Prozedur nötig ist, hätte ich das gern in einer Schleife erledigt. Wer hilft mir. Danke im Voraus Peter
Der bisherige Code:
Private Sub Form_Activate()
Me.WindowState = vbMaximized
Set Image01.Picture = LoadPicture("19.jpg")
Set Image02.Picture = LoadPicture("06.jpg")
Set Image03.Picture = LoadPicture("09.jpg")
Set Image04.Picture = LoadPicture("02.jpg")
Image01.ZOrder vbBringToFront
Image01.Stretch = True
Image01.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image01_Click()
Image02.ZOrder vbBringToFront
Image02.Stretch = True
Image02.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image02_Click()
Image03.ZOrder vbBringToFront
Image03.Stretch = True
Image03.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image03_Click()
Image04.ZOrder vbBringToFront
Image04.Stretch = True
Image04.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image04_Click()
Unload Me
Form1.Show
End Sub

 

[Yaslaw]

Bitte den Code formatiert in [code=vb]mein Code[/code] setzen.
So wie er jetzt da steht kann man das Ding kaum lesen

 

[Anfänger]

Danke für den Hinweis!

 vate Sub Form_Activate()
   Me.WindowState = vbMaximized
   Set Image01.Picture = LoadPicture("19.jpg")
   Set Image02.Picture = LoadPicture("06.jpg")
   Set Image03.Picture = LoadPicture("09.jpg")
   Set Image04.Picture = LoadPicture("02.jpg")
   Image01.ZOrder vbBringToFront
   Image01.Stretch = True
   Image01.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image01_Click()
   Image02.ZOrder vbBringToFront
   Image02.Stretch = True
   Image02.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image02_Click()
   Image03.ZOrder vbBringToFront
   Image03.Stretch = True
   Image03.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image03_Click()
   Image04.ZOrder vbBringToFront
   Image04.Stretch = True
   Image04.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Image04_Click()
   Unload Me
   Form1.Show
End Sub