Codice PHP:
dim start,dest as point ' inizializza start con top,left della label, dest col centro del form.
dim n_pass as integer = 100 'n passaggi da effettuare
dim n_pass_x, n_pass_y as integer
dim h,w as integer
w= dest.x - start.x
h= dest.y - start.y
n_pass_x = w mod n_pass
n_pass_y = h mod n_pass
dim i as integer
for i= 0 to 100
if n_pass_x > 0
lbl.top += n_pass_x
end if
if n_pass_x >0
lbl.left+= n_pass_y
endi if
next i
lbl.location = dest ' completa l'ultima parte in modo che sia preciso.
end if