VB执行键盘按键

参考吧：

vbs SendKey用法

简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:
object.SendKeys string
"object":表示WshShell对象
"string":表示要发送的按键指令字符串,需要放在英文双引号中.

Shift --》 +
Ctrl --》 ^
Alt --》 %

。。。。。。。。。。。。。。。
可以写成：
SendKeys "^%z"
就是同时按下Ctrl Alt z 三个键。
。。。。。黑龙江省巴彦县兴隆镇 张志晨。。。。。。。

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then 'F1
Form2.Show
ElseIf KeyCode = vbKey1 And Shift = 2 Then 'Ctrl+1
Form2.Show
End If
End Sub

这个只是简单的方法，如果要更高级的，比如在其他软件的界面上按下F1，也能打开软件的Form2，就要用到系统全局热键了，在此忽略不表。

试试keybd_event