Dim MyGraphics As Graphics = Me.CreateGraphics
我们提供的服务有：成都网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、岐山ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的岐山网站制作公司
'定义使用的字体
Dim Myfont As New Font("宋体", 9)
'获取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'显示宽和高
MsgBox(Mystring_Size1.Width "：" Mystring_Size1.Height)
上面思路是正确的， 用ascw 函数也可以
private function LenC( ps as string ) as Integer
Dim n As Integer
Dim StrLen As Integer
For n = 1 To Len(Text1.Text)
If Ascw(Mid(Text1.Text, n, 1)) 256 Then
StrLen = StrLen + 2
Else
StrLen = StrLen + 1
Next n
return strLen
end function
看样要重新定义个Font对象，在构造函数中定义它的大小，
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。
End With
如果你是指字符型的变量，那么理论上是2G，实际上受最大可用物理内存的限制；
如果是指text控件，那么它的大小限制是64KB