'Declaration
Public Overloads Sub TextAligned( _
ByVal As Point, _
ByVal As Point, _
ByVal As String, _
ByVal As Font, _
ByVal As Alignment _
)
'Usage
Dim instance As Draw
Dim startPoint As Point
Dim endPoint As Point
Dim text As String
Dim font As Font
Dim alignment As Alignment
instance.TextAligned(startPoint, endPoint, text, font, alignment)