Dim X As Integer 'X Koordinate
Dim Y As Integer 'Y Koordinate
'Dim a As Integer
DrawWidth = 1 
ScaleMode = 3 
 
 
For X = 1 To 720 
Picture3.PSet (150 + X, 6000), RGB(255, 255, 255)
Next X
 
Dim m As Integer
Dim a As Integer
DrawWidth = 1
    ScaleMode = 3
    a = 0
        For a = 1 To 720
        m = m + 1
 
        Picture3.PSet (150 + a, 6000 - m), RGB(0, 0, 0)
        Next a