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

Private Sub Form_Click()

F．ontSize=18

Sample$s="[ ]"

x=(ScaleWidth-TextWidth(Sample$))／2

y=(ScaleHeight-TextHeight(Sample$))／2

C．urrentX=x

C．urrentY=y

[ ]Sample$

E．nd Sub