Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyA And Shift = acCtrlMask Then 'Catch Ctrl+A
        KeyCode = 0 'Suppress normal effect
        On Error GoTo ExitSub 'ActiveControl causes a runtime error if none is active
        If TypeOf Me.ActiveControl Is TextBox Then
            With Me.ActiveControl
                .SelStart = 0
                .SelLength = Len(.Text)
            End With
        End If
    End If
ExitSub:
End Sub

Private Sub ara_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
    Dim result As Integer
    result = 0
    
    If Shift = acCtrlMask Then
        If KeyCode = 48 Or KeyCode = 96 Then 'Catch Ctrl+0
        ElseIf KeyCode = 49 Or KeyCode = 97 Then
            result = 1
        ElseIf KeyCode = 50 Or KeyCode = 98 Then
            result = 2
        ElseIf KeyCode = 51 Or KeyCode = 99 Then
            result = 3
        ElseIf KeyCode = 52 Or KeyCode = 100 Then
            result = 4
        ElseIf KeyCode = 53 Or KeyCode = 101 Then
            result = 5
        ElseIf KeyCode = 54 Or KeyCode = 102 Then
            result = 6
        ElseIf KeyCode = 55 Or KeyCode = 103 Then
            result = 7
        ElseIf KeyCode = 56 Or KeyCode = 104 Then
            result = 8
        ElseIf KeyCode = 57 Or KeyCode = 105 Then
            result = 9
        End If
    
        If (result > 0) Then
            If (Me.lst_ara.ListCount >= result) Then
                Me.lst_ara.Width = 0
                Me.lst_ara.Height = 0
                kayitDegistir CInt(Me.lst_ara.ItemData(result))
                Me.btn_ek2.SetFocus
                lst_ara.Visible = False
            End If
        End If
    End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
If (KeyCode = vbKeyNumpad1) And ((Shift And acAltMask) <> 0) Then
KeyCode = 0
Me!Liste0.Selected(0) = True
ElseIf (KeyCode = vbKeyNumpad2) And ((Shift And acAltMask) <> 0) Then
KeyCode = 0
Me!Liste0.Selected(1) = True
ElseIf (KeyCode = vbKeyNumpad3) And ((Shift And acAltMask) <> 0) Then
KeyCode = 0
Me!Liste0.Selected(2) = True
End If
    
End Sub