字体内部间隔

字体内部间距
Private Sub Command1_Click()
    Picture1.ScaleMode = vbPixels
    
    Picture1.FontSize = 10
    Picture1.Print "x"
    
    Picture1.CurrentX = 20
    Picture1.CurrentY = 0
    
    Picture1.FontSize = 100
    Picture1.Print "x"
End Sub
上面代码中，第二次打印的X，他的Y轴 虽然是0，但是他和PICTURE1的上边还有距离，怎样获取这个距离呢？第一个X的距离和第二个X的距离不一样大啊。  
好像是字体内部间距。
------解决方案--------------------
你说的是窗口边框吧
------解决方案--------------------
建议先在一个不可见的picture上print，然后用point函数取像素值得到所需字体内部间距。
前提是picture1.autoredraw=true