Private Declare Function GetWindowLong Lib "user32.dll" _
    Alias "GetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As _
    Integer
 
    Private Declare Function SetWindowLong Lib "user32.dll" _
    Alias "SetWindowLongA" (ByVal hwnd As IntPtr, ByVal nIndex As Integer, _
    ByVal dwNewLong As Integer) As Integer
 
    Private Const GWL_EXSTYLE As Integer = -20
    Private Const WS_EX_TRANSPARENT As Integer = 32
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint _
        Or ControlStyles.UserPaint Or ControlStyles.OptimizedDoubleBuffer, True)
        Dim i% = GetWindowLong(RichTextBox1.Handle, GWL_EXSTYLE) + _
          WS_EX_TRANSPARENT
        SetWindowLong(RichTextBox1.Handle, GWL_EXSTYLE, i)
 
    End Sub

mfgMeik MillerMein beste Code:If then