nel GENERALE:
codice:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
nel FORM / BoTTONE :
codice:
keybd_event vbKeyCapital, 0, KEYEVENTF_KEYUP, 0
keybd_event vbKeyCapital, 0, KEYEVENTF_EXTENDEDKEY, 0
ps. ringrazio ankora ki mi ha passato questo codice anke se nn ricordo come si kiama