перенос фигуры ......

[coolged]

При переносе фигурки - пересчитываю координаты:


Private Sub prRecalcFigs()
Dim I As Integer
For I = 0 To UBound(arrSlatDrw)
arrSlatDrw(I).x = arrSlatDrw(I).x + (PointMove.x - PointDown.x)
arrSlatDrw(I).y = arrSlatDrw(I).y + (PointMove.y - PointDown.y)
Next I
End Sub 'prRecalcFigs

тут естественно:
Public PointMove As POINTAPI - коорд. точки X-Y при MouseMove
Public PointDown As POINTAPI - коорд. точки X-Y при MouseDown

потом перерисовываю как положено с инициал. перьев и кистей и при помощи:

Polygon hdc, arrSlatDrw(0), UBound(arrSlatDrw) + 1

а потом:

StretchBlt frmSlatConfig.hdc, .Left, .Top, .Right, .Bottom, _
CmDC, .Left, .Top, .Right, .Bottom, SRCCOPY

выкладываю на frmSlatConfig.hdc

Так вот, фигурка или полиго как бы улетает(ускользает) с под курсора мыши т.е. склад. впечатление, что координаты набигаю быстрее чем передвигается курсор
Что я тут не так делаю??? please Help Me

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=20961#20961