在模拟键盘中组合键的问题

Question

以下代码,可以在text1中显示出字母"a":Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Text1_Click()
Call keybd_event(65, 0, 0, 0)
End Sub但关键是如何才能在文本中显示出"@#"等需要组合键shift+2,shift+3才能打出的字符?

Answer 1

Call keybd_event(16, 0, 0, 0)
Call keybd_event(50, 0, 0, 0)
Call keybd_event(51, 0, 0, 0)
试了一下，这样倒就可以打出"@#"了，但是这样好象模拟了shift键一直按住，当我要打出"#3"时该怎么办？