Private Sub Form_Load()
  Me.Show
  With Picture1
      .Scale (-10, 10)-(15, -10)
      .AutoRedraw = True
      Picture1.Line (-10, 0)-(10, 0), QBColor(15)                       
      Picture1.Line (0, -10)-(0, 10), QBColor(15)
      For x = -9.5 To 10 Step 1                                
          For Y = 10 To -9 Step -1
              .PSet (x, Y), QBColor(0)
          Next Y
      Next x
      .ForeColor = QBColor(13)
      .CurrentX = 0.2: .CurrentY = 10: Picture1.Print "Y"                  
      .CurrentX = 9.6: .CurrentY = -0.2: Picture1.Print "X"
      .ForeColor = QBColor(0)
      For x = -9 To 9 Step 1                                    
          .CurrentX = x - 0.1: .CurrentY = -0.1: Picture1.Print x
      Next
      For Y = -9 To 9 Step 1                                    
        If Y <> 0 Then 
          .CurrentX = 0.1: .CurrentY = Y + 0.2: Picture1.Print Y
        End If
      Next
      Picture1.Line (-9.95, 9.95)-(9.95, -9.85), QBColor(0), B           
      .AutoRedraw = False                                        
  End WIth
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de