主题：如何获取排列整齐的字符长度？换言之，如何计算中文和英文或者符号的真实长度？

参考

Dim s = "中国ABC"
Dim c = Encoding.default.GetBytes(s)
msgbox(c.length)

读取像素长度，参考

Dim g As Graphics = basemainform.creategraphics
Dim fnt As New Font("宋体",9)
Dim msg As String = "abc"
Dim size = g.MeasureString(msg, fnt)
msgbox(size.width)

是的。