Για κάποιο λόγο δε σου τρέχει ο keyboard hook,θα πρέπει να το ψάξεις λίγο.Π.χ μετά την κλήση της συνάρτησης SetWindowsHookEx βάλε τον εξής κώδικα:
If hhk = IntPtr.Zero Then
System.Diagnostics.Debug.WriteLine("Hook creation failure")
End If
Σε εμένα τρέχει κανονικά.