[mr crazy]

والله كنت بفتش الكود د من شهووووووور طويييييييله
مشكور والله

[lanonymdz]

كود :

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rx As New Regex("Imports|Public|Class|Private|Sub|End|As|Handles|ByVal|Object|MyBase|Dim|As|String|New|For |Each|In |Next|If|Then|Nothing|Else")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Blue
        Next
        rx = New Regex(""".+""")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Maroon
        Next
        rx = New Regex("'.+")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Firebrick
        Next
    End Sub
End Class

[سعود]

بارك الله فيك اخي الكريم (lanonymdz)     هذا التعديل المناسب لمن لم يحمل المثال.
فقط ينسخ  اي كود ويلصقه بالاداة.

[elgokr]

حتى يعم الفائدة لهذا ايضاً لمن يبحث

لمثل هذه الاداء

تم اضافة موضوع من قبل العضو :: عابر سبيل 2

فى الرابط التالى

http://vb4arb.com/vb/showthread.php?tid=26156

وهو موضوع رائع وسيعم ويسهل على الجميع دون عناء كتابة اى كود

تحياتى لكم

وتمنياتى للجميع التوفيق