www.pudn.com > firewalforVB.rar > SubClass.bas

Attribute VB_Name = "SubClass" 
'**************************************************************************** 
' 
' 
'发布日期：05/06/11 
'描  述：很专业的个人防火墙 
'网  站：http://www.codesky.net 
' 
' 
'**************************************************************************** 
Option Explicit 
 
Public colTrackMouse As New Collection 
 
 
Public Function procTrackMouse(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
On Error Resume Next 
Dim tmItem As New CTrackMouse 
Set tmItem = colTrackMouse.Item("TM" & hwnd) 
If Not (tmItem Is Nothing) Then procTrackMouse = tmItem.MessageReceived(wMsg, wParam, lParam) 
End Function