帮忙设定vb热键

要求是假如按F10则等于选中Check1，再按一下则是取消Check1，不要那种需要激活Form的方法，我要在激活其他程序的时候也能用热键运行的方法！

还有要程序最小化到托盘的码，两者要能兼容，我自己写的两者单用都能实现，但是合起来后最小化到托盘后会点不出来

能完美解决的我给100分，要是不能解决我就当100分扔了，直接关闭！

所以请不要发没用的了，我不会随便选个就给分的！

简单的

先添加一个模块，把下面的代码复制到模块里
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_Delete = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long