[VB.NET] Spostare controlli in diagonale con traiettoria visibile all'utente

[xam85reBanned]

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