Dim mypic As PictureBox = mypics(myii, myjj)
Dim myimage As Image = New Bitmap(32, 32)
Dim g As Graphics = Graphics.FromImage(myimage)
Dim mysf = New StringFormat()
mysf.Alignment = StringAlignment.Center
mysf.LineAlignment = StringAlignment.Center
Do While True
myi += 1
Try
g.DrawString(myii, New Font(fontlist(myi - 1), 20), New SolidBrush(Color.Red), New PointF(16, 16), mysf)
Exit Do
Catch ex As Exception
Continue Do
End Try
Loop
mypic.Image = myimage