TAB Karakter Pada RichTextBox Control

Private Sub RichTextBox1_GotFocus()
    ReDim arrTabStop(0 To Controls.Count - 1) As Boolean
    For I = 0 To Controls.Count - 1
        arrTabStop(I) = Controls(I).TabStop
        Controls(I).TabStop = False
    Next
End Sub

Private Sub RichTextBox1_LostFocus()
    For I = 0 To Controls.Count - 1
        Controls(I).TabStop = arrTabStop(I)
    Next
End Sub