Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Const VK_LWIN = &H5BPrivate Const KEYEVENTF_KEYUP = &H2' Open the Windows HelpSub OpenWindowsHelp()    ' programmatically press the Windows key    keybd_event VK_LWIN, 0, 0, 0    ' then press and then release the F1 key    keybd_event vbKeyF1, 0, 0, 0    keybd_event vbKeyF1, 0, KEYEVENTF_KEYUP, 0    ' and finally release the Windows Key    keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0End Sub