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

Picture3.PSet (150 + a, 6000 - m), RGB(0, 0, 0)

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail