RTF Textbox find and replace dialog

To use, put the following in the RTF textbox keydown sub:-

VB Code:

Private Sub rtfText_KeyDown(KeyCode As Integer, Shift As Integer)
 
If Shift And 2 Then
   If KeyCode = vbKeyF Then
        Call FindReplaceMain.ShowFindDialog(rtftext)
    ElseIf KeyCode = vbKeyH Then
        Call FindReplaceMain.ShowReplaceDialog(rtftext)
    End If
End If
 
End Sub

Many i know if this is to use find and replace in any application or ?

No - only within an RTF textbox on a VB form.

Very nice and useful codes, many thanks to you~~~~ :wave: