Fehler beim dekativieren der Windowstaste

Memnarch · 14. August 2009, 16:48

Hey leute,
habe ein problem mit dem Code hier:

Public Class Form1
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H5B
Protected Overrides Sub WndProc(ByRef m As Message)
'die messages auswerten
If m.Msg = WM_HOTKEY Then
MessageBox.Show("Sie haben die LWin-Taste gedrückt!")
Exit Sub 'Die Nachricht soll nicht weitergegeben werden (an MyBase.WndProc)
End If
MyBase.WndProc(m)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
UnregisterHotKey(Me.Handle, 1)
End Sub

Die Windowstaste bleibt dennoch aktiv -.-.
Kann mir jemand helfen please?