Готовые решения и полезные коды на Visual Basic .NET (Часть-1)

        Dim Compiler As VBCodeProvider = CodeDomProvider.CreateProvider("VB")

Imports System.IO
Public sub dllRestore() 
        Dim _DllFIle As FileInfo = New FileInfo(My.Application.Info.DirectoryPath & "\имя_библиотеки_или_файла.dll")
        If _DllFIle.Exists = False Then
            MsgBox("Один из компонентов приложения отсутствует, нажмите ОК для восстановления и перезапуска", MsgBoxStyle.Information, "Восстановление программы")
            File.WriteAllBytes(My.Application.Info.DirectoryPath & "\имя_библиотеки_или_файла.dll", My.Resources.имя_библиотеки_или_файла)
             Application.Restart()  'если нужно перезапускаем приложение.    
        End If
    End Sub

Dim shadow As New CShadow(Me, 5)

 Dim item As String = "прокси"
 Try
                With CreateObject("MSXML2.ServerXMLHTTP.6.0")
                    .setProxy(2, item)
                    .Open("GET", "http://internet.yandex.ru/", False)
                    .setTimeouts(2000, 2000, 3000, 2000)
                    .send("")
                End With
                TextBox4.AppendText(vbNewLine & "[Works]> " & item)
            Catch ex As Exception
                TextBox4.AppendText(vbNewLine & "[Exception]>" & item)
            End Try

Imports System.Net.Mail
Imports System.Text

        Dim EMail As New MailMessage
        Dim Smtp As SmtpClient
        Smtp = New SmtpClient("smtp.yandex.ru")
        Smtp.Port = 587
        Smtp.Credentials = New Net.NetworkCredential("Кто@отправляет.ru", "Пароль") 'Данные Вашей почты
        EMail.From = New MailAddress("Кто@отправляет.ru", Subject.Text) ' Subject.Text здесь для красоты, по желанию можно убрать
        EMail.To.Add(New MailAddress("Кому@отправляем.ru"))
        EMail.Body = Message.Text 'Основной текст
        EMail.Subject = Subject.Text 'Тема письма
        Try
            Smtp.Send(EMail)
            MsgBox("Ваше сообщение отправлено. Спасибо!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Ваше сообщение не было отправлено. Пожалуйста, повторите попытку", MsgBoxStyle.Critical)
        End Try

Public Sub New()
      MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
      Me.IsSingleInstance = false
      Me.EnableVisualStyles = true
      Me.SaveMySettingsOnExit = true
      Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
      'А точнее, добавляем следующую строка
      AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf LoadDLL
End Sub

Private Function LoadDLL(ByVal sender As Object, ByVal arg As System.ResolveEventArgs) As Reflection.Assembly
      If arg.Name.Contains("Dll_Reference_Name") Then
          Return Reflection.Assembly.Load(My.Resources.DLL_FILE_NAME)
      End If
      Return Nothing
End Function

 '(Для упакованной в ZIP (.NET Framework 4.5+))
 'ссылку на IO.Compression нужно добавлять вручную в проект из GAC
 '------------------------------------------------------------------------------------------------
 Private Function LoadDll_ZIP(ByVal sender As Object, ByVal arg As System.ResolveEventArgs) As Reflection.Assembly
     'Dll_Reference_Name - точно такое же название, которое используете в Import.
     'ZIPDLL - это название нашего архива с DLL-ками в ресурсах
 
     Dim file_ As IO.Compression.ZipArchive
 
     'Здесь, если вы в один архив поместили несколько DLL
     'то код найдет нужную внутри архива и загрузит
     'Dll_Reference_Name1 и Dll_Reference_Name2 - это разные файлы DLL внутри архива
     Select Case True
         Case arg.Name.Contains("Dll_Reference_Name1")
             file_ = New IO.Compression.ZipArchive(New IO.MemoryStream(My.Resources.ZIPDLL))
             For Each entry In file_.Entries
                 If entry.Name.StartsWith("Dll_Reference_Name1") Then
                     Return Reflection.Assembly.Load(New IO.BinaryReader(entry.Open).ReadBytes(CInt(entry.Length)))
                 End If
             Next
 
         Case arg.Name.Contains("Dll_Reference_Name2")
             file_ = New IO.Compression.ZipArchive(New IO.MemoryStream(My.Resources.ZIPDLL))
             For Each entry In file_.Entries
                 If entry.Name.StartsWith("Dll_Reference_Name2") Then
                     Return Reflection.Assembly.Load(New IO.BinaryReader(entry.Open).ReadBytes(CInt(entry.Length)))
                 End If
             Next
     End Select
 
     Return Nothing
 End Function

 
        Label2.Parent = Me
        Label2.BackColor = Color.Transparent
        CheckBox2.Parent = Me
        CheckBox2.PictureBox2
        PictureBox2.Parent = Me
        PictureBox2.BackColor = Color.Transparent

        Label2.Parent = PictureBox2 ' или Ме как в первом примере 
        Label2.BackColor = Color.Transparent

Imports System.Text.RegularExpressions
Imports System.Drawing.Drawing2D
Imports System.Drawing.Printing
Imports System.Net.Mime.MediaTypeNames
Public Class Form1
 
#Region " [APIs] "
    Public Declare Function LockWindowUpdate Lib "user32" (ByVal hWnd As IntPtr) As Integer
#End Region
#Region " [Classes] "
#Region " [WordList] "
    Public Class WordList
#Region " [Variables] "
        Public _cColor As New List(Of Color)
        Public _sWord As New List(Of String)
        Public rRegex As New List(Of Regex)
#End Region
#Region " [Functions] "
#Region " [Add] "
        Public Sub Add(ByVal sWord As String, ByVal cColor As Color, ByVal bUseWordBoundary As Boolean)
            _sWord.Add(sWord)
            _cColor.Add(cColor)
            Dim sNewWord As String = sWord
            If bUseWordBoundary Then
                sNewWord = "\b" & sWord & "\b"
            End If
            rRegex.Add(New Regex(sNewWord, RegexOptions.Compiled Or RegexOptions.IgnoreCase))
        End Sub
#End Region
#Region " [GetColor] "
        Public Function GetColor(ByVal iIndex As Integer) As Color
            Return _cColor(iIndex)
        End Function
#End Region
#Region " [Length] "
        Public Function Length() As Integer
            Return rRegex.Count
        End Function
#End Region
#Region " [GetWord] "
        Public Function GetWord(ByVal iIndex As Integer) As String
            Return _sWord(iIndex)
        End Function
#End Region
#End Region
    End Class
#End Region
#End Region
#Region " [Variables] "
    Public wlWordList As New WordList()
    Public cComments As Color = Color.Green
    Public rComments As New Regex("'")
    Public rQuotes As New Regex("""")
    Public cQuotes As Color = Color.Maroon
    Public rtbDump As New RichTextBox()
 
    Public sTabIndents() As String = {"   ", "    ", "      "}
#End Region
#Region " [Functions] "
#Region " [ColorCurrentLine] "
    Public Sub ColorCurrentLine(ByVal rtb As RichTextBox)
        Dim iLength As Integer = rtb.Lines.Length
        If iLength < 1 Then
            Return
        End If
        LockWindowUpdate(rtb.Handle)
        Dim mcMatchCollection As MatchCollection = Nothing
        Dim bSkipRest As Boolean = False
 
        Dim iStart As Integer = rtb.SelectionStart
        Dim iLine As Integer = rtb.GetLineFromCharIndex(iStart)
        Dim pPoint As Point = rtb.GetPositionFromCharIndex(iStart)
        Dim iScreenStart As Integer = rtb.GetCharIndexFromPosition(New Point(1, pPoint.Y))
        Dim iScreenEnd As Integer = rtb.GetCharIndexFromPosition(New Point(rtb.Width, pPoint.Y)) + 1
        Dim iFirstCharOfLine As Integer = rtb.GetFirstCharIndexFromLine(iLine)
        Dim iDiff As Integer = iScreenStart - iFirstCharOfLine
        Dim sLineText As String = ""
        Dim sRTBText As String = rtb.Text
        Dim sFullLine As String = rtbEdit.Lines(iLine)
        Dim sLineLength As Integer = sRTBText.Substring(iScreenStart, iScreenEnd - iScreenStart).Length
        sLineText = sRTBText.Substring(iScreenStart, iScreenEnd - iScreenStart)
 
        rtb.Select(iFirstCharOfLine + iDiff, iScreenEnd - iScreenStart)
        rtb.SelectionColor = Color.Black
 
        Dim iQuoteStart As New List(Of Integer)
        Dim iQuoteLen As New List(Of Integer)
 
        Dim iComStart As New List(Of Integer)
        Dim iComLen As New List(Of Integer)
        Dim iComInd As New List(Of Integer)
 
        Dim iWordsStart As New List(Of Integer)
        Dim iWordsLen As New List(Of Integer)
        Dim iWordsColor As New List(Of Integer)
        Dim iWordsWord As New List(Of Integer)
 
 
 
        mcMatchCollection = rQuotes.Matches(sFullLine)
        bSkipRest = False
        Dim mTemp1 As Match = Nothing
        Dim mTemp2 As Match = Nothing
        For k As Integer = 0 To mcMatchCollection.Count - 1
            bSkipRest = False
            mTemp1 = mcMatchCollection(k)
            mTemp2 = Nothing
            Dim iTempLength As Integer = 0
            If k + 1 <= mcMatchCollection.Count - 1 Then
                mTemp2 = mcMatchCollection(k + 1)
                iTempLength = (mTemp2.Index - mTemp1.Index) + 1
            Else
                iTempLength = 1
            End If
            iQuoteStart.Add(iScreenStart + mTemp1.Index)
            iQuoteLen.Add(iTempLength)
        Next k
 
        mcMatchCollection = Nothing
        For i As Integer = 0 To wlWordList.Length - 1
            mcMatchCollection = wlWordList.rRegex(i).Matches(sLineText)
            For Each mMatch As Match In mcMatchCollection
                iWordsStart.Add(iScreenStart + mMatch.Index)
                iWordsLen.Add(mMatch.Length)
                iWordsColor.Add(i)
                iWordsWord.Add(i)
            Next mMatch
        Next i
 
        Dim mTemp As Match = rComments.Match(sFullLine)
        If mTemp.Success Then
            iComStart.Add(iScreenStart + mTemp.Index)
            iComLen.Add(mTemp.Length)
            iComInd.Add(sLineText.Length - mTemp.Index)
        End If
 
        For i As Integer = 0 To iComStart.Count - 1
            bSkipRest = False
            For k As Integer = 0 To iQuoteStart.Count - 2
                If iComStart(i) > iQuoteStart(k) AndAlso iComStart(i) + iComLen(i) < iQuoteStart(k + 1) + iQuoteLen(k + 1) Then
                    bSkipRest = True
                End If
            Next k
            If Not bSkipRest Then
                rtb.Select(iComStart(i), iComInd(i))
                rtb.SelectionColor = cComments
            End If
        Next i
 
 
        For i As Integer = 0 To iQuoteStart.Count - 1
            bSkipRest = False
            For k As Integer = 0 To iComStart.Count - 1
                If iQuoteStart(i) > iComStart(k) + iComLen(k) Then
                    bSkipRest = True
                End If
            Next k
            If Not bSkipRest Then
                rtb.Select(iQuoteStart(i), iQuoteLen(i))
                rtb.SelectionColor = cQuotes
            End If
        Next i
 
        For i As Integer = 0 To iWordsStart.Count - 1
            bSkipRest = False
            For k As Integer = 0 To iComStart.Count - 1
                If iWordsStart(i) > iComStart(k) Then
                    bSkipRest = True
                End If
            Next k
            For k As Integer = 0 To iQuoteStart.Count - 1
                If iWordsStart(i) > iQuoteStart(k) AndAlso iWordsStart(i) + iWordsLen(i) < iQuoteStart(k) + iQuoteLen(k) Then
                    bSkipRest = True
                End If
            Next k
            If Not bSkipRest Then
                rtb.Select(iWordsStart(i), iWordsLen(i))
                rtb.SelectedText = wlWordList.GetWord(iWordsWord(i))
                rtb.Select(iWordsStart(i), iWordsLen(i))
                rtb.SelectionColor = wlWordList.GetColor(iWordsColor(i))
            End If
        Next i
 
        rtb.SelectionLength = 0
        rtb.SelectionStart = iStart
        rtb.SelectionColor = Color.Black
        LockWindowUpdate(IntPtr.Zero)
    End Sub
#End Region
#Region " [ColorLines] "
    Public Sub ColorLines(ByVal rtb As RichTextBox)
        RemoveHandler rtbEdit.TextChanged, AddressOf rtb_TextChanged
        Dim sRTBLines() As String = rtb.Lines
        Dim iLength As Integer = sRTBLines.Length
        If iLength < 1 Then
            Return
        End If
        LockWindowUpdate(rtb.Handle)
        Dim iLineFirst As Integer = 0
        Dim sText As String = ""
        Dim sRtbText As String = rtbEdit.Text
 
        Dim bSkipRest As Boolean = False
 
        Dim iSelectionStart As Integer = rtb.SelectionStart
        Dim iLastIndexFound As Integer = 0
        Dim mcMatchCollection As MatchCollection = Nothing
 
        For i As Integer = iLineFirst To iLength - 1
            Dim iFirstCharOfLine As Integer = rtb.GetFirstCharIndexFromLine(i)
            sText = sRTBLines(i)
            rtb.Select(iFirstCharOfLine, sRTBLines(i).Length)
            rtb.SelectionColor = Color.Black
            rtb.SelectionLength = 0
 
 
            Dim iQuoteStart As New List(Of Integer)
            Dim iQuoteLen As New List(Of Integer)
 
            Dim iComStart As New List(Of Integer)
            Dim iComLen As New List(Of Integer)
            Dim iComInd As New List(Of Integer)
 
            Dim iWordsStart As New List(Of Integer)
            Dim iWordsLen As New List(Of Integer)
            Dim iWordsColor As New List(Of Integer)
            Dim iWordsWord As New List(Of Integer)
 
 
            Dim sCurrentLine As String = sRTBLines(i)
            mcMatchCollection = rQuotes.Matches(sCurrentLine)
            bSkipRest = False
            Dim mTemp1 As Match = Nothing
            Dim mTemp2 As Match = Nothing
            For k As Integer = 0 To mcMatchCollection.Count - 1
                bSkipRest = False
                mTemp1 = mcMatchCollection(k)
                mTemp2 = Nothing
                Dim iTempLength As Integer = 0
                If k + 1 <= mcMatchCollection.Count - 1 Then
                    mTemp2 = mcMatchCollection(k + 1)
                    iTempLength = (mTemp2.Index - mTemp1.Index) + 1
                Else
                    iTempLength = 1
                End If
                iQuoteStart.Add(iFirstCharOfLine + mTemp1.Index)
                iQuoteLen.Add(iTempLength)
            Next k
 
            mcMatchCollection = Nothing
            For k As Integer = 0 To wlWordList.Length - 1
                mcMatchCollection = wlWordList.rRegex(k).Matches(sCurrentLine)
                For Each mMatch As Match In mcMatchCollection
                    iWordsStart.Add(iFirstCharOfLine + mMatch.Index)
                    iWordsLen.Add(mMatch.Length)
                    iWordsColor.Add(k)
                    iWordsWord.Add(k)
                Next mMatch
            Next k
 
            Dim mTemp As Match = rComments.Match(sCurrentLine)
            If mTemp.Success Then
                iComStart.Add(iFirstCharOfLine + mTemp.Index)
                iComLen.Add(mTemp.Length)
                iComInd.Add(sCurrentLine.Length - mTemp.Index)
            End If
 
 
            For k As Integer = 0 To iComStart.Count - 1
                bSkipRest = False
                For z As Integer = 0 To iQuoteStart.Count - 2
                    If iComStart(k) > iQuoteStart(z) AndAlso iComStart(k) + iComLen(k) < iQuoteStart(z + 1) + iQuoteLen(z + 1) Then
                        bSkipRest = True
                    End If
                Next z
                If Not bSkipRest Then
                    rtb.Select(iComStart(k), iComInd(k))
                    rtb.SelectionColor = cComments
                End If
            Next k
 
 
            For k As Integer = 0 To iQuoteStart.Count - 1
                bSkipRest = False
                For z As Integer = 0 To iComStart.Count - 1
                    If iQuoteStart(k) > iComStart(z) + iComLen(z) Then
                        bSkipRest = True
                    End If
                Next z
                If Not bSkipRest Then
                    rtb.Select(iQuoteStart(k), iQuoteLen(k))
                    rtb.SelectionColor = cQuotes
                End If
            Next k
 
            For k As Integer = 0 To iWordsStart.Count - 1
                bSkipRest = False
                For z As Integer = 0 To iComStart.Count - 1
                    If iWordsStart(k) > iComStart(z) Then
                        bSkipRest = True
                    End If
                Next z
                For z As Integer = 0 To iQuoteStart.Count - 1
                    If iWordsStart(k) > iQuoteStart(z) AndAlso iWordsStart(k) + iWordsLen(k) < iQuoteStart(z) + iQuoteLen(z) Then
                        bSkipRest = True
                    End If
                Next z
                If Not bSkipRest Then
                    rtb.Select(iWordsStart(k), iWordsLen(k))
                    rtb.SelectedText = wlWordList.GetWord(iWordsWord(k))
                    rtb.Select(iWordsStart(k), iWordsLen(k))
                    rtb.SelectionColor = wlWordList.GetColor(iWordsColor(k))
                End If
            Next k
        Next i
        rtb.SelectionLength = 0
        rtb.SelectionStart = iSelectionStart
        rtb.SelectionColor = Color.Black
        LockWindowUpdate(IntPtr.Zero)
        AddHandler rtbEdit.TextChanged, AddressOf rtb_TextChanged
    End Sub
#End Region
#Region " [ColorPaste] "
    Public Sub ColorPaste(ByVal rtb As RichTextBox, ByVal dump As RichTextBox, ByVal iPasteStart As Integer)
        Dim sRTBLines() As String = dump.Lines
        Dim iLength As Integer = sRTBLines.Length
        If iLength < 1 Then
            Return
        End If
        LockWindowUpdate(rtb.Handle)
        RemoveHandler rtb.TextChanged, AddressOf rtb_TextChanged
        Dim sText As String = ""
        Dim sRtbText As String = dump.Text
        Dim bSkipRest As Boolean = False
        rtb.SelectedText = ""
        rtb.Select(iPasteStart, 0)
        rtb.SelectedText = sRtbText
 
        rtb.SelectionColor = Color.Black
        Dim iSelectionStart As Integer = iPasteStart
        Dim iLineFirst As Integer = rtb.GetLineFromCharIndex(iSelectionStart)
        Dim iLastIndexFound As Integer = 0
        Dim mcMatchCollection As MatchCollection = Nothing
        For i As Integer = 0 To iLength - 1
            Dim iFirstCharOfLine As Integer = rtb.GetFirstCharIndexFromLine(i + iLineFirst)
            sText = sRTBLines(i)
            rtb.Select(iFirstCharOfLine, sRTBLines(i).Length)
            rtb.SelectionColor = Color.Black
            rtb.SelectionLength = 0
 
 
            Dim iQuoteStart As New List(Of Integer)
            Dim iQuoteLen As New List(Of Integer)
 
            Dim iComStart As New List(Of Integer)
            Dim iComLen As New List(Of Integer)
            Dim iComInd As New List(Of Integer)
 
            Dim iWordsStart As New List(Of Integer)
            Dim iWordsLen As New List(Of Integer)
            Dim iWordsColor As New List(Of Integer)
            Dim iWordsWord As New List(Of Integer)
 
 
            Dim sCurrentLine As String = sRTBLines(i)
            mcMatchCollection = rQuotes.Matches(sCurrentLine)
            bSkipRest = False
            Dim mTemp1 As Match = Nothing
            Dim mTemp2 As Match = Nothing
            For k As Integer = 0 To mcMatchCollection.Count - 1
                bSkipRest = False
                mTemp1 = mcMatchCollection(k)
                mTemp2 = Nothing
                Dim iTempLength As Integer = 0
                If k + 1 <= mcMatchCollection.Count - 1 Then
                    mTemp2 = mcMatchCollection(k + 1)
                    iTempLength = (mTemp2.Index - mTemp1.Index) + 1
                Else
                    iTempLength = 1
                End If
                iQuoteStart.Add(iFirstCharOfLine + mTemp1.Index)
                iQuoteLen.Add(iTempLength)
            Next k
 
            mcMatchCollection = Nothing
            For k As Integer = 0 To wlWordList.Length - 1
                mcMatchCollection = wlWordList.rRegex(k).Matches(sCurrentLine)
                For Each mMatch As Match In mcMatchCollection
                    iWordsStart.Add(iFirstCharOfLine + mMatch.Index)
                    iWordsLen.Add(mMatch.Length)
                    iWordsColor.Add(k)
                    iWordsWord.Add(k)
                Next mMatch
            Next k
 
            Dim mTemp As Match = rComments.Match(sCurrentLine)
            If mTemp.Success Then
                iComStart.Add(iFirstCharOfLine + mTemp.Index)
                iComLen.Add(mTemp.Length)
                iComInd.Add(sCurrentLine.Length - mTemp.Index)
            End If
 
 
            For k As Integer = 0 To iComStart.Count - 1
                bSkipRest = False
                For z As Integer = 0 To iQuoteStart.Count - 2
                    If iComStart(k) > iQuoteStart(z) AndAlso iComStart(k) + iComLen(k) < iQuoteStart(z + 1) + iQuoteLen(z + 1) Then
                        bSkipRest = True
                    End If
                Next z
                If Not bSkipRest Then
                    rtb.Select(iComStart(k), iComInd(k))
                    rtb.SelectionColor = cComments
                End If
            Next k
 
 
            For k As Integer = 0 To iQuoteStart.Count - 1
                bSkipRest = False
                For z As Integer = 0 To iComStart.Count - 1
                    If iQuoteStart(k) > iComStart(z) + iComLen(z) Then
                        bSkipRest = True
                    End If
                Next z
                If Not bSkipRest Then
                    rtb.Select(iQuoteStart(k), iQuoteLen(k))
                    rtb.SelectionColor = cQuotes
                End If
            Next k
 
            For k As Integer = 0 To iWordsStart.Count - 1
                bSkipRest = False
                For z As Integer = 0 To iComStart.Count - 1
                    If iWordsStart(k) > iComStart(z) Then
                        bSkipRest = True
                    End If
                Next z
                For z As Integer = 0 To iQuoteStart.Count - 1
                    If iWordsStart(k) > iQuoteStart(z) AndAlso iWordsStart(k) + iWordsLen(k) < iQuoteStart(z) + iQuoteLen(z) Then
                        bSkipRest = True
                    End If
                Next z
                If Not bSkipRest Then
                    rtb.Select(iWordsStart(k), iWordsLen(k))
                    rtb.SelectedText = wlWordList.GetWord(iWordsWord(k))
                    rtb.Select(iWordsStart(k), iWordsLen(k))
                    rtb.SelectionColor = wlWordList.GetColor(iWordsColor(k))
                End If
            Next k
        Next i
        rtb.Select(iSelectionStart + sRtbText.Length, 0)
        rtb.SelectionColor = Color.Black
        LockWindowUpdate(IntPtr.Zero)
        AddHandler rtbEdit.TextChanged, AddressOf rtb_TextChanged
    End Sub
#End Region
#End Region
 
    Dim SER As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        System.Windows.Forms.Application.DoEvents()
        Me.Controls.Add(rtbDump)
        rtbDump.WordWrap = False
        rtbDump.Visible = False
 
        SER = "1"
 
        Dim cColor As Color = Color.Blue
        With wlWordList
            .Add("accesskey", cColor, True)
            .Add("contenteditable", cColor, True)
            .Add("contextmenu", cColor, True)
            .Add("class", cColor, True)
            .Add("dir", cColor, True)
            .Add("id", cColor, True)
            .Add("background", cColor, True)
            .Add("backcolor", cColor, True)
            .Add("hidden", cColor, True)
            .Add("lang", cColor, True)
            .Add("spellcheck", cColor, True)
            .Add("style", cColor, True)
            .Add("tabindex", cColor, True)
            .Add("xml:lang", cColor, True)
            .Add("onblur", cColor, True)
            .Add("onchange", cColor, True)
            .Add("onclick", cColor, True)
            .Add("ondblclick", cColor, True)
            .Add("onfocus", cColor, True)
            .Add("onkeydown", cColor, True)
            .Add("onkeypress", cColor, True)
            .Add("onkeyup", cColor, True)
            .Add("onload", cColor, True)
            .Add("onmousedown", cColor, True)
            .Add("onmousemove", cColor, True)
            .Add("onmouseout", cColor, True)
            .Add("onmouseover", cColor, True)
            .Add("onmouseup", cColor, True)
            .Add("onreset", cColor, True)
            .Add("onselect", cColor, True)
            .Add("onsubmit", cColor, True)
            .Add("onunload", cColor, True)
            .Add("aling", cColor, True)
            .Add("archive", cColor, True)
            .Add("classid", cColor, True)
            .Add("code", cColor, True)
            .Add("codebase", cColor, True)
            .Add("codetype", cColor, True)
            .Add("data", cColor, True)
            .Add("hight", cColor, True)
            .Add("hspace", cColor, True)
            .Add("type", cColor, True)
            .Add("vspace", cColor, True)
            .Add("with", cColor, True)
        End With
 
        Dim cColor1 As Color = Color.Indigo
        With wlWordList
            .Add("abbr", cColor1, True)
            .Add("acronym", cColor1, True)
            .Add("address", cColor1, True)
            .Add("applet", cColor1, True)
            .Add("area", cColor1, True)
            .Add("base", cColor1, True)
            .Add("basefont", cColor1, True)
            .Add("bdo", cColor1, True)
            .Add("bgsound", cColor1, True)
            .Add("blockquote", cColor1, True)
            .Add("big", cColor1, True)
            .Add("body", cColor1, True)
            .Add("blink", cColor1, True)
            .Add("br", cColor1, True)
            .Add("button", cColor1, True)
            .Add("caption", cColor1, True)
            .Add("center", cColor1, True)
            .Add("cite", cColor1, True)
            .Add("code", cColor1, True)
            .Add("col", cColor1, True)
            .Add("colgroup", cColor1, True)
            .Add("dd", cColor1, True)
            .Add("comment", cColor1, True)
            .Add("del", cColor1, True)
            .Add("dfn", cColor1, True)
            .Add("dir", cColor1, True)
            .Add("div", cColor1, True)
            .Add("dl", cColor1, True)
            .Add("dt", cColor1, True)
            .Add("em", cColor1, True)
            .Add("embed", cColor1, True)
            .Add("fieldset", cColor1, True)
            .Add("font", cColor1, True)
            .Add("form", cColor1, True)
            .Add("footer", cColor1, True)
            .Add("frame", cColor1, True)
            .Add("frameset", cColor1, True)
            .Add("head", cColor1, True)
            .Add("hr", cColor1, True)
            .Add("html", cColor1, True)
            .Add("iframe", cColor1, True)
            .Add("img", cColor1, True)
            .Add("input", cColor1, True)
            .Add("ins", cColor1, True)
            .Add("isindex", cColor1, True)
            .Add("label", cColor1, True)
            .Add("kbd", cColor1, True)
            .Add("legend", cColor1, True)
            .Add("link", cColor1, True)
            .Add("map", cColor1, True)
            .Add("marquee", cColor1, True)
            .Add("meta", cColor1, True)
            .Add("nobr", cColor1, True)
            .Add("noembed", cColor1, True)
            .Add("noframes", cColor1, True)
            .Add("noscript", cColor1, True)
            .Add("object", cColor1, True)
            .Add("ol", cColor1, True)
            .Add("optgroup", cColor1, True)
            .Add("option", cColor1, True)
            .Add("param", cColor1, True)
            .Add("plaintext", cColor1, True)
            .Add("pre", cColor1, True)
            .Add("samp", cColor1, True)
            .Add("script", cColor1, True)
            .Add("small", cColor1, True)
            .Add("select", cColor1, True)
            .Add("span", cColor1, True)
            .Add("strike", cColor1, True)
            .Add("strong", cColor1, True)
            .Add("sub", cColor1, True)
            .Add("sup", cColor1, True)
            .Add("table", cColor1, True)
            .Add("tbody", cColor1, True)
            .Add("td", cColor1, True)
            .Add("textarea", cColor1, True)
            .Add("tfoot", cColor1, True)
            .Add("th", cColor1, True)
            .Add("thead", cColor1, True)
            .Add("title", cColor1, True)
            .Add("tr", cColor1, True)
            .Add("tt", cColor1, True)
            .Add("u", cColor1, True)
            .Add("ul", cColor1, True)
            .Add("var", cColor1, True)
            .Add("xmp", cColor1, True)
            .Add("li", cColor1, True)
        End With
 
        Dim cColor2 As Color = Color.BlueViolet
        With wlWordList
            .Add("expression", cColor2, True)
            .Add("php", cColor2, True)
            .Add("echo", cColor2, True)
            .Add("print", cColor2, True)
            .Add("variable", cColor2, True)
            .Add("endif", cColor2, True)
            .Add("highlight", cColor2, True)
            .Add("me", cColor2, True)
            .Add("file_contents", cColor2, True)
            .Add("php die()", cColor2, True)
            .Add("n", cColor2, True)
            .Add("arr", cColor2, True)
            .Add("obj", cColor2, True)
            .Add("function_name", cColor2, True)
            .Add("d", cColor2, True)
            .Add("_GET", cColor2, True)
            .Add("_ENV", cColor2, True)
            .Add("_FILES ", cColor2, True)
            .Add("_POST", cColor2, True)
            .Add("GLOBALS", cColor2, True)
            .Add("_SERVER", cColor2, True)
            .Add("_COOKIE", cColor2, True)
            .Add("_REQUEST", cColor2, True)
            .Add("_SESSION", cColor2, True)
            .Add("this", cColor2, True)
            .Add("extends", cColor2, True)
            .Add("private", cColor2, True)
            .Add("CONST_VALUE", cColor2, True)
            .Add("public function plus", cColor2, True)
            .Add("return", cColor2, True)
            .Add("HTTP_ENV_VARS", cColor2, True)
            .Add("HTTP_SERVER_VARS", cColor2, True)
            .Add("HTTP_POST_VARS", cColor2, True)
            .Add("HTTP_POST_FILES", cColor2, True)
        End With
 
        Dim cColor3 As Color = Color.Gray
        With wlWordList
            .Add("1", cColor3, True)
            .Add("2", cColor3, True)
            .Add("3", cColor3, True)
            .Add("4", cColor3, True)
            .Add("5", cColor3, True)
            .Add("6", cColor3, True)
            .Add("7", cColor3, True)
            .Add("8", cColor3, True)
            .Add("9", cColor3, True)
            .Add("0", cColor3, True)
        End With
 
        Dim cColor4 As Color = Color.Orange
        With wlWordList
            .Add("h1", cColor4, True)
            .Add("h2", cColor4, True)
            .Add("h3", cColor4, True)
            .Add("h4", cColor4, True)
            .Add("h5", cColor4, True)
            .Add("h6", cColor4, True)
        End With
 
        Dim cColor5 As Color = Color.SaddleBrown
        With wlWordList
            .Add("struct", cColor5, True)
            .Add("int", cColor5, True)
            .Add("namespace", cColor5, True)
            .Add("const int", cColor5, True)
            .Add("typedef int", cColor5, True)
            .Add("void", cColor5, True)
            .Add("double", cColor5, True)
            .Add("using namespace", cColor5, True)
            .Add("inline double", cColor5, True)
            .Add("Draw", cColor5, True)
            .Add("Circle", cColor5, True)
            .Add("Square", cColor5, True)
            .Add("virtual void", cColor5, True)
            .Add("Array", cColor5, True)
            .Add("int _len", cColor5, True)
            .Add("inline void", cColor5, True)
            .Add("Alloc", cColor5, True)
            .Add("inline const double", cColor5, True)
            .Add("ChangeElem", cColor5, True)
            .Add("protected", cColor5, True)
            .Add("friend class", cColor5, True)
            .Add("operator", cColor5, True)
            .Add("cstddef", cColor5, True)
            .Add("limits", cColor5, True)
            .Add("climits", cColor5, True)
            .Add("cfloat", cColor5, True)
            .Add("cstdlib", cColor5, True)
            .Add("cstdarg", cColor5, True)
            .Add("stdexcept", cColor5, True)
            .Add("cassert", cColor5, True)
            .Add("cerrno", cColor5, True)
            .Add("utility", cColor5, True)
            .Add("ctime", cColor5, True)
            .Add("deque", cColor5, True)
            .Add("clocale", cColor5, True)
            .Add("complex", cColor5, True)
            .Add("numeric", cColor5, True)
            .Add("valarray", cColor5, True)
            .Add("cmath", cColor5, True)
            .Add("iosfwd", cColor5, True)
            .Add("iostream", cColor5, True)
        End With
 
        Dim cColor6 As Color = Color.IndianRed
        With wlWordList
            .Add("createTextField", cColor6, True)
            .Add("greet.text", cColor6, True)
            .Add("com.example.Greeter", cColor6, True)
            .Add("extends MovieClip", cColor6, True)
            .Add("package", cColor6, True)
            .Add("flash.display.Sprite", cColor6, True)
            .Add("flash.text.TextField", cColor6, True)
            .Add("addChild", cColor6, True)
            .Add("CDATA", cColor6, True)
            .Add("XMLNode", cColor6, True)
            .Add("MovieClipLoader", cColor6, True)
            .Add("NetConnection", cColor6, True)
            .Add("NetStream", cColor6, True)
            .Add("null", cColor6, True)
            .Add("Error", cColor6, True)
            .Add("Vector", cColor6, True)
            .Add("flash.filters", cColor6, True)
            .Add("flash.external", cColor6, True)
            .Add("flash.errors", cColor6, True)
            .Add("flash.display", cColor6, True)
            .Add("flash.accessibility", cColor6, True)
            .Add("flash.ui", cColor6, True)
            .Add("flash.system", cColor6, True)
            .Add("flash.profiler", cColor6, True)
            .Add("gotoAndStop", cColor6, True)
            .Add("gotoAndPlay", cColor6, True)
            .Add("nextFrame", cColor6, True)
            .Add("prevFrame", cColor6, True)
            .Add("getURL", cColor6, True)
        End With
 
        ColorLines(rtbEdit)
        rtbEdit.Visible = True
    End Sub
 
    Private Sub rtb_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles rtbEdit.TextChanged
        Dim rtb As RichTextBox = CType(sender, RichTextBox)
        ColorCurrentLine(rtb)
    End Sub
End Class