textboxの文字の色について

---

テキストボックスに表示する文字の色を
特定の文字だった場合に、その文字だけを
文字色を変えたいのですが、
どのようにやればいいのかわかりません。

プログラム例は

Private stra as String

Private Sub Form_Load()
   stra = "ABCDE"
   Text1.Text = stra   
End Sub

Private Sub Timer1_Timer()
    Dim strb As String
    Dim count As Integer
    Dim i As Integer

    count = Len(stra)  ' 文字数を調べる
    For i = 1 To count
        strb = Mid(stra, i, 1)
        If strb = "A" Then
        ↑ここで、例えば文字が"A"
         だった場合に、この"A"という文字だけを
        文字色を変えて、それ以降の文字は、ForeColor
        のままで表示したいのですが 
End Sub

編集 削除

---

RichTextBoxを使ったほうが幸せになれるのでは？

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。