有什么函数或者其他方法能知道两个5号排列在一起所占的宽度（单位为象素）

两个5号？
是指“两个5号字”么？如果是的话，可以用下面的方法：
    Private Sub Form_Load()

    Dim lt As Long

    With Form1
        .ScaleMode = 3
        .FontSize = 11 '大概和汉字的5号字大小相等
        .AutoRedraw = True
    End With

    lt = Form1.TextWidth("你好")

    Form1.Print lt


End Sub