German Text unterstrichen ausgeben?

Hallo Leute,
ich möchte eine Text unterstrichen ausgeben, weiß aber nicht wie. Wie müsste der Code lauten, damit der Text "Mein Text" unterstrichen wird?

Dim C As Canvas
C.Initialize(Panel1)
C.DrawText("Mein Text", 10, 20, Typeface.DEFAULT, 14, Colors.Red, "LEFT")

Vielen Dank im voraus
Petrus

Direkt geht es leider nicht mit dem Canvas Objekt.
Das muss aber mit der ABExtDrawing Library gehen.
Diese stellt alle Canvasfunktionen zur Verfügung.
Mit Und im ABPaint Objekt den flag_UNDERLINE_TEXT_FLAG setzen.
Habe es noch nie probiert.

Beste Grüsse.

Vielen Dank für die schnelle Antwort! Ich werde mir das mal ansehen.

Viele Grüße
Petrus

PS: Zur Not funktioniert es auch so, dass man den Text noch mal mit dem Unterstrich überchreibt (___).