Dim strTestMessage
As String
Dim image As New
Bitmap(300, 60) ' create a new bitmap image.
Dim g As Graphics
' graphics context to draw to
Dim font As New Font("Arial",
16, FontStyle.Bold) ' font for the string
strTestMessage = DateTime.Now.Millisecond.ToString() & " -- This is a Test
"
g = Graphics.FromImage(image)
g.Clear(Color.Aqua)
g.DrawString(strTestMessage, font, SystemBrushes.WindowText, 10, 10)
ImageCanvas1.Image = image 'the default output format is JPEG
'the image will now be drawn to the webpage