[VB] dynamisch ein(e) Linie/Rechteck zeichnen

Habe eine erste Möglichkeit gefunden:

man nehme zu diesen zwecken ein Image, stelle das ganze auf Transparent und im 2D Modus dar, bestimme die Rahmendicke und achte auf das MouseDown Ereignis. Wenn ich dann per MouseMove direkt die Größe des Image Objektes ändere

private Sub darunterliegenderFrame_MouseMove (Button as Integer, Shift as Integer, X as Single, Y as Single)
  ' resizeable ist meine Variable die bei MouseDown  
  ' auf true gesetzt wird
  if resizeable then
    if not (X < Image1.Top) then
      Image1.Height = Image1.Top + X
    end if
    if not (Y < Image1.Left) then
      Image1.Width = Image1.Left + Y
    end if
  end if
End Sub

flimmert nichts mehr. Gibt es noch andere Alternativen? Dachte etwa an ne Linie XOR gezeichnet (mit dem Untergrund). vielleicht geht das ja schneller als eine normale Linie.

mfg maddin