comment récupérer la touche tabulation pour un richtextbox

j'ai essayé ceci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub rtbFiches.KeyPress(...................................................)
 
Dim key as Keys
 
'Donne le focus
rtbfiches.Select()
 
key=Key.Tab
e.KeyChar=chr(key)
 
End Sub

il doit y avoir une erreur


Merci