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