vb 添加状态栏

1.新建一工程
2.添加"部件" ms windows common controls 6.0
3.将StatusBar控件加至窗体中
4.右键点击该控件,选"属性",可设置其外观,窗格数,字体及图片
5.通过代码可改变状态栏中的显示内容
如

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyInsert Then
If StatusBar1.Panels(2).Text = "插入" Then
StatusBar1.Panels(2).Text = "改写"
Else
 StatusBar1.Panels(2).Text = "插入"
End If
End If
End Sub

/*****************************************/
关于 ms windows common controls 6.0 不能找到，解决方法

下载mscomctl.ocx控件，复制到c:windowssystem32目录下，并注册 开始菜单，运行，输入 regsvr32 mscomctl.ocx