完成下面的程序，使显示结果如下图所示。 PrivateSubForm_Click（） FontSize=18 Sample＄="

完成下面的程序，使显示结果如下图所示。

Private Sub Form_Click（）

FontSize=18

Sample＄=" 【8】 "

x=（ScaleWidth-TextWidth（Sample＄） ） /2

y=（ScaleHeight-TextHeight（Sample＄） ） /2

CurrentX=x

CurrentY=y

【9】 Sample＄

End Sub