Ok. This function returns a Bitmap which you can then do a GraphicsObj.DrawImage with:
Function TextRect(ByVal CharToDraw As Char, ByVal CharSpace As Integer, ByVal Rect As Rectangle) As Bitmap
'This function returns a bitmap image
'of the rectangle. Since it is transparent there shouldn't
'be a problem with pasting this on to of graphics
Dim BMP As New Bitmap(Rect.Width + CharSpace, Rect.Height + CharSpace)
Dim G As Graphics = Graphics.FromImage(BMP)
Dim X As Integer
Dim Y As Integer
Dim xRatio As Double = Rect.Width / CharSpace
Dim yRatio As Double = Rect.Height / CharSpace
Dim i As Integer
For i = 1 To CInt(xRatio) - 1
G.DrawString(CharToDraw, New Font(Font.FontFamily.GenericSansSerif, 12, FontStyle.Regular, GraphicsUnit.Point), New SolidBrush(Color.Black), X, Y)
X = X + CharSpace
Next
For i = 1 To CInt(yRatio) - 1
G.DrawString(CharToDraw, New Font(Font.FontFamily.GenericSansSerif, 12, FontStyle.Regular, GraphicsUnit.Point), New SolidBrush(Color.Black), X, Y)
Y = Y + CharSpace
Next
For i = 1 To CInt(xRatio) - 1
G.DrawString(CharToDraw, New Font(Font.FontFamily.GenericSansSerif, 12, FontStyle.Regular, GraphicsUnit.Point), New SolidBrush(Color.Black), X, Y)
X = X - CharSpace
Next
For i = 1 To CInt(yRatio) - 1
G.DrawString(CharToDraw, New Font(Font.FontFamily.GenericSansSerif, 12, FontStyle.Regular, GraphicsUnit.Point), New SolidBrush(Color.Black), X, Y)
Y = Y - CharSpace
Next
Return BMP
End Function
