Mirror keys for multiboxing MMORPG games like WOW/LOTRO

Public Class UdpKeyPostManager
    Private m_keys As New Collections.Hashtable
    Private m_time As New Collections.Hashtable
    Public Sub AddPostMessage(ByVal WindowHandle As IntPtr, ByVal KeyInfo As UdpKeyInfo) ', ByVal message As UInteger, ByVal VKey As IntPtr, ByVal lparam As IntPtr)
        Dim idx As String = WindowHandle.ToString("X16") & "," & KeyInfo.Device.ToString("X16") & "," & KeyInfo.VKey.ToString("X4")
        If m_keys.Contains(idx) Then
            If m_keys(idx).GetType Is GetType(UdpKeyPost) Then
                Dim thisKeyPost As UdpKeyPost = DirectCast(m_keys(idx), UdpKeyPost)
                If thisKeyPost.IsFinished Then
                    Debug.WriteLine("finished")
                    m_keys.Remove(idx)
                Else
                    If (KeyInfo.Message And CUInt(1)) = 0 Then 'keydown
                        Debug.WriteLine("keydown update")
                        m_time.Remove(idx)
                        m_time.Add(idx, New DateTime(Now.Ticks))
                        RawInputHook.PostMessage(WindowHandle, KeyInfo.Message, New IntPtr(KeyInfo.VKey), New IntPtr(KeyInfo.lParam))
                    Else 'keyup
                        Debug.WriteLine("keyup natural                                            " & New IntPtr(KeyInfo.lParam).ToString("X16"))
                        thisKeyPost.Cancel()
                        RawInputHook.PostMessage(WindowHandle, KeyInfo.Message, New IntPtr(KeyInfo.VKey), New IntPtr(KeyInfo.lParam))
                        m_keys.Remove(idx)
                    End If
                End If
            Else
                m_keys.Remove(idx) 'value object type was not UdpKeyPost(?should never happen?)
            End If
        Else
            Debug.WriteLine("keydown new")
        End If
        If (((KeyInfo.Message And CUInt(1)) = 0) AndAlso (Not m_keys.Contains(idx))) Then
            If m_time.Contains(idx) Then m_time.Remove(idx)
            m_time.Add(idx, New DateTime(Now.Ticks))
            m_keys.Add(idx, New UdpKeyPost(Me, WindowHandle, KeyInfo))
        End If

    End Sub

    Public Function LastKeydown(ByVal WindowHandle As IntPtr, ByVal KeyInfo As UdpKeyInfo) As DateTime
        Dim result As New DateTime(0)
        Dim idx As String = WindowHandle.ToString("X16") & "," & KeyInfo.Device.ToString("X16") & "," & KeyInfo.VKey.ToString("X4")
        If m_time.Contains(idx) Then
            If m_time(idx).GetType Is GetType(DateTime) Then
                result = DirectCast(m_time(idx), DateTime)
            End If
        End If
        Return result
    End Function

    Public Sub Remove(ByVal idx As String)
        If m_keys.Contains(idx) Then
            m_keys.Remove(idx)
        End If
    End Sub

End Class