Private Sub Command1_Click()
Dim a As String, textW As Integer, textH As Integer
FontName = "隶书"
FontColor = 60
ForeColor = QBColor(15)
BackClolor = QBColor(8)
a = "你好"
textW = TextWidth(a) / 2
textH = TextHeight(a) - Command1.Height / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
print a
End Sub
这个VB程序中的“textW = TextWidth(a) / 2
textH = TextHeight(a) - Command1.Height / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH”这一段程序，哪位高手可以给我详细解释一下是什么意思？
书上说这几句程序是控制输出文本的位置的，但俺这个小菜鸟还是看不懂。。请哪位大哥指教一下，先谢谢啦！

还是不太懂啊！
textH = TextHeight(a) - Command1.Height / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
那这三句又是什么意思呢？
textH=TextHeight(a)-Command1.Height/2是得到“你好”在窗体中的高度吗？
那为什么又要在后面加一个Command1.Height / 2?
后两句又是什么意思呢？
请帮我做一个详细的解释好吗？
我搞了好久没有搞懂这里！谢谢 。。。。