求教打印问题，谢谢！！！

Question

求教打印问题，谢谢！！！
我想把文字居中（Picture1里面居中），请帮助写改一下代码，谢谢！！！
Private Sub Picture1_Click()
 Dim HalfHeight, HalfWidth, Msg
  
   Picture1.BackColor = QBColor(4)
   Picture1.ForeColor = QBColor(15)
   Msg = "Visual Basic"   ' 创建信息。
   Picture1.FontSize = 48   ' 设置字体大小。
   HalfWidth = TextWidth(Msg)
   HalfHeight = TextHeight(Msg)
   Picture1.CurrentX = (Picture1.ScaleWidth - HalfWidth - Picture1.ScaleLeft) / 2  ' 设置 X。
   Picture1.CurrentY = Picture1.ScaleHeight / 2 - HalfHeight   ' 设置Y。
   Picture1.Print Msg   ' 打印信息。
End Sub

Answer 1

Private Sub Command1_Click()
    Dim HalfHeight, HalfWidth, Msg
     Picture1.BackColor = QBColor(4)
     Picture1.ForeColor = QBColor(15)
     Msg = "Visual Basic"
     Picture1.FontSize = 48
     HalfWidth = Picture1.TextWidth(Msg)
     HalfHeight = Picture1.TextHeight(Msg)
     Picture1.CurrentX = (Picture1.ScaleWidth - HalfWidth - Picture1.ScaleLeft) / 2
     Picture1.CurrentY = Picture1.ScaleHeight / 2 - HalfHeight
     Picture1.Print Msg
End Sub

Answer 2

Private Sub Command1_Click()
    Dim HalfHeight, HalfWidth, Msg
     Picture1.BackColor = QBColor(4)
     Picture1.ForeColor = QBColor(15)
     Msg = "Visual Basic"
     Picture1.FontSize = 48
     HalfWidth = Picture1.TextWidth(Msg)
     HalfHeight = Picture1.TextHeight(Msg)
     Picture1.CurrentX = (Picture1.ScaleWidth - HalfWidth) / 2
     Picture1.CurrentY = (Picture1.ScaleHeight - HalfHeight) / 2
     Picture1.Print Msg
End Sub