I need help with Journal hooks

[tropix100]

Hello,
I am tryying to get JournalRecord and JournalPlayback to work on my vista laptop but am finding that my Proc is not even being called.
I am not having any problem with my GetMessage hook but only with the Journal hook.
I have attached the relevant code.
Any help is greatly appreciated.

Public Sub RecordMouse()
'Record the Mouse Events
    If lHookID <> 0 Then Exit Sub
    lMsgCountMax = 0
    lMsgCount = 0
    ReDim tEventList(0)
'Set an application hook to monitor for messages sent to this app
    lAppHookID = SetWindowsHookEx(WH_GETMESSAGE, AddressOf GetMessageProc, App.hInstance, App.ThreadID)
'Set the Journal Hook to allow us to record all Mouse Movements
    lHookID = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf JournalRecordProc, 0&, 0&)
End Sub
 
Private Function JournalRecordProc(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo LogError
    If Code < 0 Then
'Pass this message along...
        JournalRecordProc = CallNextHookEx(lHookID, Code, wParam, ByVal lParam)
    Else
'Grab the Event Message Structure
        CopyMemory tEVENTMSG, ByVal lParam, Len(tEVENTMSG)
'Only record MOUSE_MOVE events
        If tEVENTMSG.message = WM_MOUSEMOVE Then
            lMsgCountMax = lMsgCountMax + 1
            ReDim Preserve tEventList(lMsgCountMax)
            tEventList(lMsgCountMax) = tEVENTMSG
        End If
        JournalRecordProc = 0
    End If
Exit Function
LogError:
Debug.Print "Error in JournalRecordProc()"
End Function
 
Private Function GetMessageProc(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim tMSG As MSG
Dim Rec As Long
    If Code < 0 Then
'Pass the message along...
        GetMessageProc = CallNextHookEx(lAppHookID, Code, wParam, ByVal lParam)
    Else
'Grab the MSG structure
        CopyMemory tMSG, ByVal lParam, Len(tMSG)
        Select Case tMSG.message
            Case WM_CANCELJOURNAL
'An external process has requested us to stop this operation
                Call UnhookWindowsHookEx(lHookID)
                lHookID = 0
        End Select
    End If
'JournalRecordProc Code, wParam, lParam
End Function
 
Public Sub PlayBackMouse()
'Playback the Journal Recorded with JournalRecord
    If lHookID <> 0 Then Exit Sub
    lMsgCount = 1
    tEVENTMSG = tEventList(1)
'Set an application hook to monitor for messages sent to this app
    lAppHookID = SetWindowsHookEx(WH_GETMESSAGE, AddressOf GetMessageProc, App.hInstance, App.ThreadID)
    lHookID = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf JournalPlaybackProc, 0&, 0&)
End Sub

[dee-u]

This, this and this maybe relevant...