谁用过 Keybd_event 这个API啊..

Question

发送Win+F键的范例：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 = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
'
Private Sub Command1_Click()
    Call keybd_event(VK_LWIN, 0, 0, 0)
    Call keybd_event(&H46, 0, 0, 0)       'F
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
'
Private Sub Form_Load()
  Command1.Caption = "Find File (2)..."
  Me.Caption = "Find File (2)"
End Sub

Answer 1

比喻： 對combox控件用鍵盤控制打開與關閉下拉   Call keybd_event(vbKeyF4, 0, 2, 0)
   Call keybd_event(vbKeyShift, 0, 2, 0)

Answer 2

各位楼上的大虾,,你们用的都是VB里常量,,有没有办法使 bVk 这个参数用变量来用呢..比如我 用一个 ASC() 函数来传递这个变量,可以吗..如: 
Str="A"
Call keybd_event(Asc(Str), 0, 0, 0)
这样可以吗.