[VB.NET] Transparente Richtext/Textbox

[uncopyable]

Hallo,
da ich auf der Suche nach einer Transparente Richtext/Textbox war um ein Hintergrundbild in der Richtext/Textbox zu haben bin ich auf das gestoßen.
(Quelle reich ich nach wenn ich sie wieder finde...)

Kurze Erklärung

Euerm Projekt folgende Verweise einfügen
System.Windows.Forms
System.Runtime.InteropServices

Neue UserControl Klasse erstellen hier ist der Name "Transparente_RichTextbox" könnt ihr aber beliebig ändern und folgende Code einfügen.

Imports System.Runtime.InteropServices

Public Class Transparente_RichTextbox
    Inherits RichTextBox  'Hier einfach zwischen Textbox oder RichTextBox wählen
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Public Shared Function LoadLibrary(ByVal lpFileName As String) As IntPtr
    End Function
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim prams As CreateParams = MyBase.CreateParams
            If LoadLibrary("msftedit.dll") <> IntPtr.Zero Then
                prams.ExStyle = prams.ExStyle Or &H20
                prams.ClassName = "RICHEDIT50W"
            End If
            Return prams
        End Get
    End Property
End Class

Projekt Speichern, erstellen klicken und die erhaltene DLL in der Toolbox in eure Form einfügen.

Viel Spaß