Visual Basic

backgroundImageDir= "C:\Images\"
For Each file As IO.FileInfo In backgroundImageDir.GetFiles()
      stringfilepath = file.FullName.ToString
Next

Dim WH_KEYBOARD As Integer = 2
    Shared hHook As Integer = 0
    Public Delegate Function CallBack(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    Private hookproc As CallBack
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
        Public Overloads Shared Function SetWindowsHookEx _
             (ByVal idHook As Integer, ByVal HookProc As CallBack, _
              ByVal hInstance As IntPtr, ByVal wParam As Integer) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
     Public Overloads Shared Function CallNextHookEx _
          (ByVal idHook As Integer, ByVal nCode As Integer, _
           ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    End Function
    <DllImport("User32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)> _
             Public Overloads Shared Function UnhookWindowsHookEx _
                  (ByVal idHook As Integer) As Boolean
    End Function
    <StructLayout(LayoutKind.Sequential)> Public Structure KeyHookStruct
        Public pt As Point
        Public hwnd As Integer
        Public wHitTestCode As Integer
        Public dwExtraInfo As Integer
    End Structure

  Private Sub sethook()
        If hHook.Equals(0) Then
            hookproc = AddressOf KeyHookProc
            hHook = SetWindowsHookEx(7, hookproc, IntPtr.Zero, System.Threading.Thread.CurrentThread.ManagedThreadId())
            If hHook.Equals(0) Then
                MsgBox("SetWindowsHookEx Failed")
                Return
            Else
                'Button1.Text = "UnHook Windows Hook"
            End If
        Else
            Dim ret As Boolean = UnhookWindowsHookEx(hHook)

            If ret.Equals(False) Then
                MsgBox("UnhookWindowsHookEx Failed")
                Return
            Else
                hHook = 0
                ' Button1.Text = "Set Windows Hook"
                Me.Text = "Mouse Hook"
            End If


        End If


    End Sub
    Public Shared Function KeyHookProc( _
 ByVal nCode As Integer, _
 ByVal wParam As IntPtr, _
 ByVal lParam As IntPtr) As Integer
        Dim MyKeyHookStruct As New KeyHookStruct()

        If (nCode < 0) Then
            Return CallNextHookEx(hHook, nCode, wParam, lParam)
        End If

        MyKeyHookStruct = CType(Marshal.PtrToStructure(lParam, MyKeyHookStruct.GetType()), KeyHookStruct)

        Dim tempForm As Form
        tempForm = Form.ActiveForm()

        Dim strCaption As String
        strCaption = "x = " & MyKeyHookStruct.pt.x & " y = " & MyKeyHookStruct.pt.y

        tempForm.Text = strCaption
        Return CallNextHookEx(hHook, nCode, wParam, lParam)

    End Function