[الطالب]

سلام

استخدم RichTextBox1 ولو اني اتوقع انك تعرفها ولا تريدها

كود :

Public Class Form1

    ' عدم اخفا المحدد
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.HideSelection = False
    End Sub

    ' تلوين
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selColor As Color = Color.Red
        RichTextBox1.SelectionColor = selColor
    End Sub

    ' النمط
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim _fontStyle As FontStyle = FontStyle.Bold + FontStyle.Italic
        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.FontFamily, RichTextBox1.SelectionFont.Size, _fontStyle)
    End Sub

    ' الحجم
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim _fontSize As Single = 20
        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.FontFamily, _fontSize, RichTextBox1.SelectionFont.Style)
    End Sub

    ' الخط
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim _fontName As String = "Courier New"
        RichTextBox1.SelectionFont = New Font(_fontName, RichTextBox1.SelectionFont.Size, RichTextBox1.SelectionFont.Style)
    End Sub

    ' المحاذاه
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim _Alignment As String = HorizontalAlignment.Center
        RichTextBox1.SelectionAlignment = _Alignment
    End Sub

End Class

كوفقين