Private Sub WritingMsg(ByVal RTF As RichTextBox, ByVal Data As String, ByVal _
  IsDirectory As Boolean)
 
      'Cursor an der letzten Position. Ab dieser wird der neue Text eingefügt
      Dim start As Int32 = RTF.TextLength
      Dim last_RTF_Position As Int32
 
      'Textlänge +  vbCrLf + "-----------------------" + vbCrLf -> 23
      last_RTF_Position += start + Data.Length + 23
 
      'Text einfügen
      RTF.Text += Data + vbCrLf + "-----------------------" + vbCrLf
 
      '-- Es betrifft ein Verzeichnis
      If IsDirectory = True Then
 
         'Text makieren 
      RTF.Select(start, last_RTF_Position - start)
 
         'Makierten Text farblich für "Ordner" makieren
         RTF.SelectionColor = Color.Blue
 
         Exit Sub
 
         '-- Es betrifft eine Datei
      ElseIf IsDirectory = False And Delete = False Then
 
         'Text makieren 
      RTF.Select(start, last_RTF_Position - start)
 
         'Makierten Text farblich für "Datei" makieren
         RTF.SelectionColor = Color.Black
 
       End If
   End Sub

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio