Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
Dim gpath As New GraphicsPath gpath.AddString("ABCDEFG", Me.Font.FontFamily, 0, 16, New Point(0, 0), StringFormat.GenericDefault) e.Graphics.DrawPath(Pens.Black, gpath)