Find and Replace dialog for RTFTextbox

To use from a RTFTextbox put the following in the KeyDown...


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