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)