Je voulais dire KeyPreview en complément du code de Lord Nelson
 
Version VB avec un « TextBox » nommé Text1
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then
        KeyCode = 0
        MsgBox "Tabulation sur Form"
    Else
        Me.Caption = KeyCode
    End If
 
End Sub
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then
      KeyCode = 0
      '(la mise à 0 de KeyCode annule l'action de la tabulation, donc le Focus reste
      'dans la TextBox)
      'Ici: Appel de ta procédure
      MsgBox "Tabulation sur Text Box"
    End If
End Sub