keycode: ctrl+vbkey1 ?

how can I make a combination like ctrl+1? :confused:

Purdy easy:

Code:

---

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? :rolleyes: