print内容的如何居中显示

[rkdrc]

在picturebox上绘制图形，并做数值标记，但如何将print的内容对于某个坐标在X向上居中输出？
如current X=100 current Y=5,文字以X=100为中心输出来

[jhone99]

Private Sub Command1_Click()
    Dim X As Single, Y As Single
    Dim W As Single
    Dim S As String
    
    S = "ABCDEFG"   '要打印什么由你确定
    
    W = Picture1.TextWidth(S)
    X = (1000 - W) / 2
    Y = 50      'Y 的值由你确定
    
    Picture1.CurrentX = X
    Picture1.CurrentY = Y
    Picture1.Print S
End Sub

[jhone99]

100太小，我改用1000