Повернуть векторную картинку вокруг центра

[uk8amk]

Доброго времени суток программеры!
Входные данные - файл фекторной графики, выходные - поворачивать картинку вокруг центра на экране. Вот такая вот простая задачка. Целый день сижу, а получается одна чушь. Не вращается так как надо.
Решил сделать так:
Sub GetDistance() 'Расстояние от центра экрана до каждой точки
Dim i As Long
For i = 1 To TotalPoints
Distance(i) = Sqr((PointsX(i) - 127) ^ 2 + (PointsY(i) - 127) ^ 2)
Next i
End Sub
Sub Rotate(ByVal Angle As Single) 'Вращать
Dim i As Long, j As Single, x As Long
Dim PrevX As Integer, PrevY As Integer
Dim tmp As Single
tmp = 127
For j = 0 To 360
For x = 1 To 1000000
Next x
picPreview.Cls
For i = 1 To TotalPoints
OutPointsX(i) = PointsX(i) + Distance(i) * Cos(0.017453 * j)
OutPointsY(i) = PointsY(i) + Distance(i) * Sin(0.017453 * j)

If i = 1 Then
PrevX = OutPointsX(i)
PrevY = OutPointsY(i)
End If
If Blanking(i) = 0 Then
picPreview.Line (PrevX, PrevY)-(OutPointsX(i), OutPointsY(i))
End If

PrevX = OutPointsX(i)
PrevY = OutPointsY(i)
Next i
Next j
End Sub

Оно то вращается но только так криво и не по центру. Подскажите пожалуйста где я туплю. Исходник прилагаю. Спасибо.

[Mikle]

uk8amk
Глянь здесь:
http://bbs.vbstreets.ru/viewtopic.php?p=6677242#6677242

[uk8amk]

Кажется в том примере есть нужная мне функция для поворота векторов. Пошел изучать. Спасибо.