Приложение не видно в трее и панели задач, главная форма вызывается горячими клавишами

Public Class Form1

Private m_startInVisible As Boolean = True
    Protected Overrides Sub SetVisibleCore(ByVal value As Boolean)
        If m_startInVisible Then
            MyBase.SetVisibleCore(False)
            m_startInVisible = False
        Else
            MyBase.SetVisibleCore(value)
        End If
    End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 If e.Control = True And e.KeyCode = Keys.Q Then MsgBox("Нажата Control и Q") ' Если нажата клавиша Contro(вместо неё можно написать Alt или Shift) и Q то выдаем сообщение
 End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
 If e.KeyChar = "п" Then MsgBox("Нажата клавиша: п") ' Если нажата клавиша 'п' то выводим сообщение
 End Sub

 Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Q) And GetAsyncKeyState(Keys.R) Then Me.BackColor = Color.Black : sender.Stop()
    End Sub

 Private Const WH_KEYBOARD_LL As Integer = 13
    Private Const WM_KEYUP As Integer = &H101
    Private Shared _proc As LowLevelKeyboardProc = AddressOf HookCallback
    Private Shared _hookID As IntPtr = IntPtr.Zero
 
    Public Declare Auto Function SetWindowsHookEx Lib "user32.dll" ( _
         ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr
 
    Public Declare Auto Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hhk As IntPtr) As IntPtr
 
    Public Declare Auto Function CallNextHookEx _
     Lib "user32.dll" (ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
 
    Public Declare Auto Function GetModuleHandle Lib "kernel32.dll" (ByVal lpModuleName As String) As IntPtr
 
 
    Private Shared Function SetHook(ByVal proc As LowLevelKeyboardProc) As IntPtr
        Dim curProcess As Process = Process.GetCurrentProcess()
        Dim curModule As ProcessModule = curProcess.MainModule
        Return SetWindowsHookEx(WH_KEYBOARD_LL, proc, GetModuleHandle(curModule.ModuleName), 0)
    End Function
 
    Public Delegate Function LowLevelKeyboardProc( _
         ByVal nCode As Integer, ByVal wParam As IntPtr, _
         ByVal lParam As IntPtr) As IntPtr
 
    Public Shared Function HookCallback(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        If nCode >= 0 And wParam = CType(WM_KEYUP, IntPtr) Then
            Dim vkCode As Keys = CType(Marshal.ReadInt32(lParam), Keys)
            If vkCode = Keys.LWin Or vkCode = Keys.RWin Then
                MsgBox("d")
                'keybd_event(CByte(Keys.Zoom), 0, KEYEVENTF_EXTENDEDKEY, 0)
            End If
        End If
        Return CallNextHookEx(_hookID, nCode, wParam, lParam)
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _hookID = SetHook(_proc)
    End Sub

mports System.Runtime.InteropServices
Public Class Form1
    Implements IDisposable
    Protected Overrides Sub OnLoad(ByVal e As EventArgs)
        MyBase.OnLoad(e)
        Dim k As Keys = Keys.A Or Keys.Control 
'регистрируем горячую клавишу
        WindowsShell.RegisterHotKey(Me, k)
    End Sub
 
    ' CF Note: The WndProc is not present in the Compact Framework (as of vers. 3.5)! please derive from the MessageWindow class in order to handle WM_HOTKEY
    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m) 
'здесь мы получаем событие принажатии горячей клавиши
        If m.Msg = WindowsShell.WM_HOTKEY Then 
 
            Me.WindowState = FormWindowState.Normal
            Me.Activate()
        End If
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
             'не забываем снять регистрацию)
        WindowsShell.UnregisterHotKey(Me)
    End Sub
End Class
Public Class WindowsShell
#Region "fields"
    Public Shared MOD_ALT As Integer = &H1
    Public Shared MOD_CONTROL As Integer = &H2
    Public Shared MOD_SHIFT As Integer = &H4
    Public Shared MOD_WIN As Integer = &H8
    Public Shared WM_HOTKEY As Integer = &H312
#End Region
 
    <DllImport("user32.dll")> _
    Private Shared Function RegisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vlc As Integer) As Boolean
    End Function
 
    <DllImport("user32.dll")> _
    Private Shared Function UnregisterHotKey(ByVal hWnd As IntPtr, ByVal id As Integer) As Boolean
    End Function
 
    Private Shared keyId As Integer
    Public Shared Sub RegisterHotKey(ByVal f As Form, ByVal key As Keys)
        Dim modifiers As Integer = 0
 
        If (key And Keys.Alt) = Keys.Alt Then
            modifiers = modifiers Or WindowsShell.MOD_ALT
        End If
 
        If (key And Keys.Control) = Keys.Control Then
            modifiers = modifiers Or WindowsShell.MOD_CONTROL
        End If
 
        If (key And Keys.Shift) = Keys.Shift Then
            modifiers = modifiers Or WindowsShell.MOD_SHIFT
        End If
 
        Dim k As Keys = key And Not Keys.Control And Not Keys.Shift And Not Keys.Alt
        keyId = f.GetHashCode()
        ' this should be a key unique ID, modify this if you want more than one hotkey
        RegisterHotKey(DirectCast(f.Handle, IntPtr), keyId, CUInt(modifiers), CUInt(k))
    End Sub
 
    Private Delegate Sub Func()
 
    Public Shared Sub UnregisterHotKey(ByVal f As Form)
        Try
            ' modify this if you want more than one hotkey
            UnregisterHotKey(f.Handle, keyId)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub
End Class

Dim k As Keys = Keys.A Or Keys.Control

Dim k As Keys = Keys.O Or Keys.Control Or Keys.Alt

  RegisterHotKey(DirectCast(f.Handle, IntPtr), keyId, CUInt(modifiers), CUInt(k))

Dim k As Keys = Keys.O Or Keys.Control Or Keys.Al