例51：状态条的使用

1. 建立一个EXE工程，在窗体上放一个状态条（Status），一个文本框和一个计时器（Timer)。
2. 设置计时器的时间间隔为1000毫秒。
3. 在状态条中增加两个窗格。分别写上文本：文本框字符个数，时间日期。
4. 在计时器的计时事件中输入代码：

Sub Form1_Timer1_WM_Timer(hWndForm As hWnd, wTimerID As Long)

   Status1.Text(0) = Text1.TextLength

   Status1.Text(1) =  Format(Now(), "yyyy / mm / dd hh：mm：ss")

End Sub

5.程序运行界面如下：（图49）

                 图49