Pressing combinaton of Keys

i want to press Shif+Ctr+1 at got focus of any textbox

Do you mean you want to trap the Ctl+Shift+1 key in textbox ?

If yes, then try this...

Code:

---

Option Explicit

Private Declare Function GetKeyboardState _
Lib "user32" (pbKeyState As Byte) As Long

Private Declare Function GetAsyncKeyState _
Lib "user32" (ByVal vKey As Long) As Integer

Private Const VK_TAB = &H9
Private Const VK_SHIFT = &H10
Private Const VK_LBUTTON = &H1

Private Myarray(255) As Byte
Dim CtrlKey As Boolean, ShiftKey As Boolean

Private Function Shifted(Optional RefreshState As Boolean = False) As Boolean
  Call RefreshKeyState(RefreshState)
  If ((Myarray(VK_SHIFT) And &H80) = &H80) Then
      Shifted = True
  End If
End Function

Private Sub RefreshKeyState(RefreshState As Boolean)
  If RefreshState Then
      Call GetKeyboardState(Myarray(0))
  End If
End Sub
Private Sub ShowKey()
    Dim BoolShift As Boolean, BoolCtl As Boolean
    Dim sMessage As String

    BoolShift = Shifted(False)
       
    '~~> Ctrl key pressed
    If GetAsyncKeyState(vbKeyControl) And &H8000 Then
        '~~> Ctrl+SHIFT pressed
        If GetAsyncKeyState(vbKeyShift) And &H8000 Then
            '~~> Ctrl+SHIFT+1 pressed
            If GetAsyncKeyState(vbKey1) And &H8000 Then
                MsgBox "You pressed CTL+SHIF+1"
                CtrlKey = False
                Exit Sub
            End If
        End If
       
    End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Call ShowKey
End Sub

---