Curvare il testo in una DrawingArea

Il caso è quello in cui si scrive un testo su una circonferenza ideale curvando ogni carattere in modo tale che il proprio asse verticale converga al centro di detta circonferenza. ^{[Nota 1]}
La rotazione è data dai valori presenti nei metodi "Paint.Traslate()" e "Paint.Rotate()" relativi alle misure dell'area di disegno e a quelle del testo.

Nell'esempio, che segue, si scriveranno alcuni caratteri lungo il semicerchio superiore della circonferenza:

Public Sub DrawingArea1_Draw()

 With Paint
   .Arc(300, 300, 50, Rad(0), 360, False)
   .Stroke
   .DrawRect(250, 250, 50, 50, Color.Red, 1.0)
   .DrawRect(300, 250, 50, 50, Color.Red, 1.0)
   .DrawRect(250, 300, 50, 50, Color.Red, 1.0)
   .DrawRect(300, 300, 50, 50, Color.Red, 1.0)

   .Translate(244, 305)
   .Rotate(Rad(90))
   .DrawText("G", 0, 0, 5, 5, Align.Left)
  
   .Translate(42, 13)
   .Rotate(Rad(315))
   .DrawText("A", 0, 0, 5, 5, Align.Left)
   
   .Translate(43, 13)
   .Rotate(Rad(315))
   .DrawText("T", 0, 0, 5, 5, Align.Left)
   
   .Translate(42, 15)
   .Rotate(Rad(315))
   .DrawText("T", 0, 0, 5, 5, Align.Left)
   
   .Translate(40, 14)
   .Rotate(Rad(315))
   .DrawText("O", 0, 0, 5, 5, Align.Left)
   .End
 End With
 
End

Note

[1] Vedere anche questa pagina: Curvare la linea di testo in un oggetto Image