字体内部间距
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