Отлов нажатой клавиши свернутым приложением - Visual Basic .NET

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

Привет всем! У кого есть такой код? - Форма свернута, но при нажатии клавиши на клавиатуре она записывается в ТекстБокс. Спасибо =)

Решение задачи: «Отлов нажатой клавиши свернутым приложением»

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

                                Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Do
            Application.DoEvents()
            If My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H41) < 0 Then    'нажата CTRL+A
                Me.Text = "CTRL+A"
            ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H58) < 0 Then    'нажата CTRL+X
                Me.Text = "CTRL+X"
            ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H43) < 0 Then    'нажата CTRL+C
                Me.Text = "CTRL+C"
            ElseIf My.Computer.Keyboard.CtrlKeyDown And Get_Key_State(&H56) < 0 Then    'нажата CTRL+V
                Me.Text = "CTRL+V"
            Else
                Me.Text = Nothing
            End If
        Loop
    End Sub
 
    'Или вот так еще:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Do
            Application.DoEvents()
            Select Case Control.ModifierKeys
                Case Keys.Control
                    If GetAsyncKeyState(Keys.A) Then Me.Text = "CTRL+A"
                    If GetAsyncKeyState(Keys.X) Then Me.Text = "CTRL+X"
                    If GetAsyncKeyState(Keys.C) Then Me.Text = "CTRL+C"
                    If GetAsyncKeyState(Keys.V) Then Me.Text = "CTRL+V"
                Case Else
                    Me.Text = Nothing
                End If
            End Select
        Loop
    End Sub
                        