Cómo implementar el cálculo del ancho del texto en VB.NET
Dim MyGraphics As Graphics = Me.CreateGraphics
'Definir la fuente utilizada
Dim Myfont As New Font("宋体", 9)
'Obtener el tamaño del texto.
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'Mostrar ancho y alto
MsgBox(Mystring_Size1.Width & ":" & Mystring_Size1.Height)