Dim Starttop As Integer
Dim Zieltop As Integer
Dim Startleft As Integer
Dim Zielleft As Integer
Dim Schrittop As Single
Dim Schrittleft As Single
 
'Start- und Zielkoordinaten festlegen
        Starttop = 5040
        Zieltop = 3120
        Zielleft = 4200
        Startleft=..... (variabler Wert zwischen 2760 und 8160)
 
'Schrittweite berechen
        Schrittop = (Zieltop - Starttop) / 15	'wobei die Anzahl Schritte auch 
        ' variabel sein werden
        Schrittleft = (Zielleft - Startleft) / 15
 
'Animation anzeigen
        picSpielerzug(1).Top = Starttop
        picSpielerzug(1).Left = Startleft
        picSpielerzug(1).Visible = True
        Do While Zieltop < picSpielerzug(1).Top
                picSpielerzug(1).Top = picSpielerzug(1).Top + Schrittop
                picSpielerzug(1).Left = picSpielerzug(1).Left + Schrittleft
                picSpielerzug(1).Refresh
                Sleep 11
                DoEvents
        Loop