Form_Keydown not allowed Tab Key

I have a richtextbox and i need to use the tab key to move the text in the box and ive figured out it has something to do with this. How can i allow the tab key be passed through....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

    Case 112
        txtUDS.Locked = False
        lblStatus.Caption = "Writable"
    Case 115
        'Run Code
       
    Case 121
        Unload Me
    Case Else
        MsgBox KeyCode
End Select

End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub
thaburnerAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
SethiConnect With a Mentor Commented:
Private Sub richClinicalNotes_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyTab Then
        KeyCode = 0
        richClinicalNotes.SelText = vbTab
    End If
End Sub
0
 
thaburnerAuthor Commented:
hmmm didnt work
0
 
SethiCommented:
You want the tab key to work in the richtextbox instead of navigating out? If yes then it has to work as I have been using this code for many years in my projects. Please change the name of the richtextbox in the code.
0
 
thaburnerAuthor Commented:
i got it working with your code provided i just had to turn the TabStop=False
Thx
0
 
SethiCommented:
I am not sure why you had to turn TabStop=False as that is not required.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.