Как перехватить глобально нажатие клавиши '~'? - VB

Private Declare Function GetKeyState Lib 'user32' Alias 'GetKeyState' (ByVal nVirtKey As Long) As Integer
Private Declare Function GetKeyNameText Lib 'user32' Alias 'GetKeyNameTextA' (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetKeyboardType Lib 'user32' Alias 'GetKeyboardType' (ByVal nTypeFlag As Long) As Long
Private Declare Function GetKeyboardState Lib 'user32' Alias 'GetKeyboardState' (pbKeyState As Byte) As Long
Private Declare Function GetKeyboardLayoutName Lib 'user32' Alias 'GetKeyboardLayoutNameA' (ByVal pwszKLID As String) As Long
Private Declare Function GetKeyboardLayoutList Lib 'user32' Alias 'GetKeyboardLayoutList' (ByVal nBuff As Long, lpList As Long) As Long
Private Declare Function GetKeyboardLayout Lib 'user32' Alias 'GetKeyboardLayout' (ByVal dwLayout As Long) As Long