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”这一段程序，哪位高手可以给我详细解释一下是什么意思？
书上说这几句程序是控制输出文本的位置的，但俺这个小菜鸟还是看不懂。。请哪位大哥指教一下，先谢谢啦！

TextWidth 和 TextHeight是窗体和PictureBox的两个方法，用于获得在当前字体大小下指定文本的宽度和高度。

textW = TextWidth(a) / 2
这一行得到 "你好"在窗体中的宽度。

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

CurrentX、CurrentY这两个属性是文本在窗体上的坐标左上角的。
ScaleWidth / 2是窗体内部宽度的一半
ScaleHeight / 2 是窗体内部高度的一半
得到的效果就是文字出现在窗体中央
我不知道减- Command1.Height / 2有什么作用应该不要。

看不懂哦！