Posteado por: Andrea en: septiembre 27, 2010
Es preferible usar en su lugar la Api de windows, ya que SendKeys a veces suele dar error
Public Declare Sub keybd_event Lib “user32″ (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub CbTipoOS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call keybd_event(vbKeyTab, 0, 0, 0)
If KeyAscii = 27 Then Call keybd_event(vbKeyTab, 0, 0, 0)
End Sub
