Dim A() As Label
Dim Zaehler As Integer
'oberer Teil Anfang
        A(1).Location = New Point(Label1.Location.X, Label1.Location.Y)
        A(2).Location = New Point(Label2.Location.X, Label2.Location.Y)
        A(3).Location = New Point(Label3.Location.X, Label3.Location.Y)
' oberer Teil ENDE
        Zähler = 1
        While Zaehler <= 3
            A(Zaehler).Location = New Point(A(Zaehler).Location.X + 1, A( _
              Zaehler).Location.Y + 1)
        Zähler = Zähler + 1
        End While

_________________________________________________
VB.Net Einsteiger mit fortgeschrittenem Unwissen.