마우스 락 소스 수정 부탁드려요

키보드 입력을 막는 소스를 마우스 입력 제한용으로 바꿔봤는데, 잘못된 부분이 있는지 봐주세요.
필요하면 채팅으로 소스 내용을 더 설명드릴게요.
Public Function LowLevelMouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If (nCode = 0) Then
If wParam = WM_LBUTTONDOWN Or wParam = WM_RBUTTONDOWN Then
CopyMemory p, ByVal lParam, Len(p)
If p.vkCode = VK_RMOUSEDOWN Then
fEatKeystroke = True
End If
End If
End If
If fEatKeystroke Then
LowLevelMouseProc = -1
Else
LowLevelMouseProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
End If
End Function