Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Const VK_STARTKEY = &H5B
Const KEYEVENTF_KEYUP = &H2
Sub getstart()
'WinKey down
keybd_event VK_STARTKEY, 0, 0, 0
'WinKey up
keybd_event VK_STARTKEY, 0, KEYEVENTF_KEYUP, 0
End Sub
|