picturebox.scale with polyline or polygon API function.... ????

hi, please help it is quite URGENT...!

MY AIM :

To make a CAD program. (computer aided design and drafting...)

WHAT I NEED:

A 3d drawing space with correct coordinates.

Vbasic takes the upper left corner 0,0 and so fort.... i am using

picturebox.scale function

to coorect this problem and make the center of picturebox (0,0) and 4

quadrants like

-x +x

+y | +y

------|--------

-x | +x

-y -y

picturebox.line fynction works properly with the current changes..but

Polygon API function does not realise the picturebox.scale command.

picture1.hdc does not affected...PLS HELP

I MAY SEND MY CODE UPON REQUEST.

I am using a simple rotation algo. but as far as i know the algor.. below

takes 0,0 as referance while rotating. how to modify to make 0,0 ---> my

origion.

Private Sub Rotate3D(x1 As Long, y1 As Long, z1 As Long, yaw As Single, pit

As Single, rol As Single)

'

Dim x2 As Long, y2 As Long, z2 As Long

Dim x3 As Long, y3 As Long, z3 As Long

Dim x4 As Long, y4 As Long, z4 As Long

'

' Yaw

'

x2 = x1 * Cos(yaw) + z1 * Sin(yaw)

y2 = y1

z2 = x1 * Sin(yaw) - z1 * Cos(yaw)

'

' Pitch

'

x3 = x2

y3 = y2 * Cos(pit) + z2 * Sin(pit)

z3 = y2 * Sin(pit) - z2 * Cos(pit)

'

' Roll

'

x4 = x3 * Cos(rol) + y3 * Sin(rol)

y4 = x3 * Sin(rol) - y3 * Cos(rol)

z4 = z3

'

x1 = x4: y1 = y4: z1 = z4

'

End Sub

THANKS DANKE

Devrim PAKKAN