Private Declare Sub keybd_event Lib "user32" _
  (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Command1_Click()
 keybd_event &H2C, 0, 0, 0
 keybd_event &H2C, 0, &H2, 0
End Sub

Rechtschreibfehler stehen unter Copyright und d?rfen nur gegen Bezahlung weiterverwendet werden.