Try this:
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.
I copied it from ScaleLeft, ScaleTop Properties Example in VB6 Help.

------------------
Marty