Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
timer 时间控件内
Call keybd_event(vbKeyControl, 0, 0, 0) 'Alt键键按下
Call keybd_event(vbKeyO, 0, 0, 0)
Call keybd_event(vbKeyO, 0, 2, 0)
Call keybd_event(vbKeyControl, 0, 2, 0) 'Alt键键弹起
vb 最小化以后如何检测热键是个问题