小区封闭了半个月，只能呆在家里。写代码来打发这无聊的时间。

水平不行，半天没看懂代码

看了二个自定义控件里，全是自己处理消息

运行显示“下标越界”

共同学习

在MyStatusbar类模块里，找到Private Sub SetPanelWidth()，在它下面加上一行If mStatusBarhWnd = 0 Then Exit Sub就好了

为什么枚举不出来文件？

共同学习

学习

编译错误：
 过程声明与同名事件或过程描述不匹配
Private Sub IOleInPlaceActiveObjectVB_TranslateAccelerator(Handled As Boolean, RetVal As Long, ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal Shift As Long