Эмитация нажатия на клавишу.

[_Мика_]

Можно конечно с помощью keyb_event но он может "нажимать" только маленькие буквы т.е. [/b]a-z , а нужно чтобы можно была эмитировать нажатия как a-z так и A-Z. КАК ЕТО СДЕЛАТЬ

[Amed]

А что такое большая буква? Это Shift + маленькая буква...

[_Мика_]

Ну да

[Amed]

Option Explicit
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 KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Private Sub Form_Click()
Text1.SetFocus
keybd_event vbKeyA, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyB, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyC, 0, KEYEVENTF_EXTENDEDKEY, 0
End Sub


Так? =)