完成下面的程序，使显示结果如下图所示。
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

健康、安全、环境管理要坚持什么原则？