通常子类化后，在IDE运行软件的话，遇到代码出错，停止，暂停软件，调试软件，VB 就崩溃

而用我做的，就没这个问题，任意调试。

注意的是：不小心点了VB的停止强制终止软件后，请关闭VB重开，否则VB会很容易崩溃。

我做的是一个控件，放上控件，

Private Sub Form_Load()
VB安全子类化1.限制窗口大小 0, 0, 480, 400
VB安全子类化1.子类化窗口 Me.hWnd
End Sub

Private Sub VB安全子类化1_滚轮动作(ByVal Shift As Long, ByVal 滚轮 As Long, ByVal X As Long, ByVal Y As Long)
Label2 = "鼠标滚轮消息：" & Shift & "," & 滚轮 & "," & X & "," & Y
End Sub

Private Sub VB安全子类化1_自定消息(ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Label3 = "用户消息：" & wMsg & "," & wParam & "," & lParam
End Sub

'里面，有多种方案，

'1，同步处理全部消息，默认，其他的全注释掉代码，有需要可以开启

'2，选择性同步处理消息

'3，避免立即停止崩溃处理（代码没开启）

'4，异步处理消息

源码下载方法：

QQ群：78458582 (Basic编程学习资料) （收费入群）

在群文件中，文件太多，可以用查找帖子主题的部分字找到你要的资源。