keycode: ctrl+vbkey1 ?

[SteveCRM]

how can I make a combination like ctrl+1?

Purdy easy:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim CtrlDown
    Const vbCtrlMask = 2
    CtrlDown = (Shift And vbCtrlMask) > 0
    If KeyCode = vbKey1 Then
    If CtrlDown Then
    MsgBox "CTRL+1"
    End If
    End If
End Sub

Easier than you thought it would be?