Try this.
Code:Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 'If Control and C are pressed then If GetKeyState(vbKeyControl) And GetKeyState(vbKeyC) Then MsgBox ("Control + C was pressed in Text1(" & Index & ")") End If End Sub




Reply With Quote