Try this:
I copied it from ScaleLeft, ScaleTop Properties Example in VB6 Help.Code:Picture1.ScaleTop = -1 ' Set scale for top of grid.
Picture1.ScaleLeft = -1 ' Set scale for left of grid.
Picture1.ScaleWidth = 2 ' Set scale (-1 to 1).
Picture1.ScaleHeight = 2
Picture1.Line (-1, 0)-(1, 0) ' Draw horizontal line.
Picture1.Line (0, -1)-(0, 1) ' Draw vertical line.
------------------
Marty
