VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '検索する文字列をセット
        Dim SearchStr As String = "ABC"
        '見つかった位置を保存するための変数
        Dim FindPos As Integer

        '文字列を検索する
        FindPos = RichTextBox1.Find(SearchStr)

        '指定文字列が見つかったか？
        If FindPos > -1 Then
            '見つかった位置から、文字数分を選択
            RichTextBox1.Select(FindPos, SearchStr.Length)
            'フォーカスを当てる（フォーカスがはずれると選択が無効になってしまうため）
            RichTextBox1.Focus()
        End If
End Sub