Движение точки

[Шурик]

Помню тут тема такая была давно, НО чета не нашел
Вобщем задача такая:
Нужно сделать движение точки, допустим из x1=50 и y1=50 в x1=150 и y1=250, т.е. не ровно по диагонали
Вот, сам чето сообразить не могу

Всем спасибо!!!

[Amed]

Код: Выделить всё

Option Explicit
Private Const X0 = 50
Private Const y0 = 50
Private Const X1 = 150
Private Const Y1 = 250

Private Sub Form_Load()
Me.DrawWidth = 5
Me.PSet (X0 * 15, y0 * 15)
Me.PSet (X1 * 15, Y1 * 15)
Me.DrawWidth = 1
End Sub

Private Sub tmrMove_Timer()
Static x, y, t
x = (X0 + (X1 - X0) * t) * 15
y = (y0 + (Y1 - y0) * t) * 15

t = t + 0.01

Me.PSet (x, y)
End Sub

[Шурик]

Спасибо большое
Теперь буду двигать точки куда захочу