设定StatusBar上的文字,该文字以StatusBar所在Form的字型设定为准,并以form的ForeColor为字的颜色,文字过长时,自动会截除这个程式的实质意义不太大,因为当文字被盖掉後需自行重新再呼叫这个Sub才能再将文字显示出来,除非我们再使用Subclassing的方式,於statusBar接收到WM_PAINT时,去呼叫这个SubRoutine,这程式着重於Font的了解 ''below is within FormPrivate Sub Command1_Click()Cal