Dim bm As New Bitmap(64, 64)
        Dim g As Graphics = Graphics.FromImage(bm)
        Dim fmt As New System.Drawing.StringFormat
        fmt.Alignment = StringAlignment.Center
        fmt.LineAlignment = StringAlignment.Center
        g.DrawString("Hi there!", Me.Font, Brushes.Aquamarine, New RectangleF( _
          0, 0, 64, 64), fmt)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov