如何得到一个字符的宽度和高度？？

Question

我在做关于排版的程序，我想得到一个字符的高和宽各占多少各像素，该用什么函数可以做到

Answer 1

Form1.ScaleMode = vbPixels
Form1.TextWidth
Form1.TextHeight

Answer 2

Form1.ScaleMode = vbPixels
   MsgBox Form1.TextWidth("我") & " " & Form1.TextHeight("我")

Answer 3

Me.TextHeight ("a")
Me.TextWidth ("a")

Answer 4

如果想得到textbox控件中的字符宽度和高度呢？textbox控件恐怕没有TextHeight 和TextWidth 函数吧：）