Zitat:

gegeben: vom gezeichneten String die X, Y Koordinate sowie Länge und Breite.

dim b as boolean
 
if überscheiden
    if b
       'zeichne
       b = false
    else
       'zeichne nicht
       b = true
    end if
 
else
    'normal zeichen
end if