Private Sub cmdFindNext_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles cmdFindNext.Click
    ' dim variables
    Dim strFindTerm As String
    Dim intCursorPos As Integer
    ' setup find term & cursor position
    strFindTerm = txtLocate.Text
    intCursorPos = Me.rtxEdit.SelectionStart + Me.rtxEdit.SelectionLength
    ' execute the find -- the intCursorPos is where the Find starts
    Me.rtxEdit.Find(strFindTerm, intCursorPos, RichTextBoxFinds.None)
End Sub