other balance portion to the read

[Nicholas Randall Forystek]

Private Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal
wParam As Long, ByVal lParam As Long) As Long
On Error GoTo notloaded

Static stacking As Long
stacking = stacking + 1
If stacking > uc.Count Then GoTo notloaded

On Error GoTo selectnone
Select Case uMsg
Case WM_WINSOCK

Dim objSocket As Socket
Set objSocket = PtrObj(uc("H" & hWnd))
WndProc = objSocket.EventRaised(WSAGetSelectEvent(lParam),
WSAGetAsyncError(lParam))

End Select

On Error GoTo 0
stacking = stacking - 1
Exit Function
selectnone:
If Err Then Err.Clear
On Error GoTo 0
stacking = stacking - 1
WndProc = 0
Exit Function
notloaded:
On Error GoTo 0
stacking = stacking - 1
WndProc = 0
End Function