Private Sub Form_Load()
    Scale (-10, 10)-(15, -10)
    Show
    AutoRedraw = True
    Line (-10, 0)-(10, 0), QBColor(15)                       
    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: Print "Y"                  
    CurrentX = 9.6: CurrentY = -0.2: Print "X"
    ForeColor = QBColor(0)
    For x = -9 To 9 Step 1                                    
        CurrentX = x - 0.1: CurrentY = -0.1: Print x
    Next
    For Y = -9 To 9 Step 1                                    
    If Y = 0 Then GoTo weiter                                 
        CurrentX = 0.1: CurrentY = Y + 0.2: Print Y
weiter:
    Next
    Line (-9.95, 9.95)-(9.95, -9.85), QBColor(0), B           
    AutoRedraw = False                                        
End Sub