أسئلة حول Rich text box

لتغيير اللون للنص المحدد أستعمل

RichTextBox1.SelColor = vbRed

بالنسبة للسؤال التانى , انا جربت نص عربى و فى آخره نقطة و ظهرت بشكل صحيح

يمكن دى مشكلة كانت بالأصدارات السابقة من الأداة و أتحلت بالـ SP6 ؟؟؟!!!!!!!!!!!!

لضبط الكتابة في Rich box

ضع هذا الكود في موديول :

Option Explicit

Sub Adjust(Rt As RichTextBox)
Dim Pos&, Lngth&
Pos = Rt.SelStart
Lngth = Rt.SelLength
With Rt
.TextRTF = Replace(.TextRTF, "\ltrpar", "\rtlpar")
.TextRTF = Replace(.TextRTF, "\ltrch", "\rtlch")
.SelStart = 0: .SelLength = Len(.Text)
.SelAlignment = 1
.TextRTF = Replace(.TextRTF, "\ltrch", "\rtlch")
.SelStart = 0: .SelLength = Len(.Text)
.SelStart = Pos
.SelLength = Lngth
End With
End Sub

ثم ضع هذا الكود في حدث تحميل الفورم :

Private Sub Form_Load()
Adjust RichTextBox1
End Sub

جربت كود الأخ viusal studo

وفعلا أنحت مشكلة السؤال الثاني

واستخدمت هذا الكود لتغير لون الخط في rich text box

richText box1.selstart=0
richTextBox1.selLength=len(richtextBox1.text)
richtextBox1.selColor=vbRed

وشكرا للجميع