消息循环获取自定义消息 怎么时间长了就收不到自定义消息了？

Question

自定义消息WM_DataRead我用下面的函数拦截自定的消息Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
       If uMsg = WM_DataRead Then
        Call ************
      End If
      WindowProc = CallWindowProc(lpPrevWndProc, hWnd, uMsg, wParam, lParam)
End Function
一开始好好的，时间长了就收不到这个消息了！
难道Form1窗口收到的消息要定时清空吗？我自定义的这个消息每秒钟应该受到10来次才对！唉！求各位帮忙！

Answer 1

Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      If uMsg = WM_DataRead Then
        Call ************
        exit functiom    '加一句这个
      End If
      WindowProc = CallWindowProc(lpPrevWndProc, hWnd, uMsg, wParam, lParam)
End Function

Answer 2

Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case uMsg
    Case WM_DataRead 
        ....
    Case Else
         WindowProc = CallWindowProc(lproc, hwnd, uMsg, wParam, lParam)
  End Select
End Function