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

Формулировка задачи:

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

Решение задачи: «Как перехватить глобально нажатие клавиши '~'?»

textual
                            Листинг программы 
                        

                            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
                        