UDF: Mit Controls zeichnen in verschiedenen Formen&Farben

Tach,

Ich hab mal wieder etwas völlig sinnloses gemacht. Als ich mich mit der iPhoneApp "Basic!" beschäftigte und dort gerade eine UDF zum Zeichnen von Buttons schrieb kam mir eine Idee.

Man kann mit dieser UDF einen Pen erstellen (Button, Edit, Listview ...) in einer bestimmen Farbe, z.B.: Pen_Square($Blau) und dann wird mithilfe der Maus in einem vorgegebenen Zeichenbereich "gemalt" also kleine farbige Controls erstellt.

Man könnte dies vielleicht als Beispiel zur Verwendung von Mauskoordinaten, IF-Abfragen in Schleifen und Funktionen sehen, muss aber nicht.

Im Anhang die UDF und ein Beispiel am GUI

Auch wenns noch so sinnlos ist, die 5/6 Leute die sich das angeguckt haben könnten auch mal was dazu sagen.