完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click()
FontSize=18
Sample$s="　【8】　"
x=(ScaleWidth-TextWidth(Sample$))／2
y=(ScaleHeight-TextHeight(Sample$))／2
CurrentX=x
CurrentY=y
　【9】　Sample$
End Sub

充油设备外部着火时，可用干粉灭火器灭火。