关于字体对齐有关问题

关于字体对齐问题
Private Sub Command1_Click()
Picture1.fontsize = 100
Picture1.Print "1"
A = Picture1.TextHeight("1")

Picture1.CurrentX = 80
Picture1.fontsize = 24
Picture1.CurrentY = A - Picture1.TextHeight("1")
Picture1.Print "1"

End Sub
上面代码中，前后两次打印出的“1” 下面在一条水平线上，我知道是字体高度中包含白色部分组成的。字号越大，白色部分也越大，所以不在一条水平线上。不知如何解决。WORD里，不管字号差距有多大，下边可是对齐的。  最好用API 解决。
[解决办法]
那个叫“用API”的，接客……
[解决办法]
给个思路，在一个不可见的Picture上先Print大小两种字体，然后用Point函数逐行取像素判断得到字符的Ascent值。