[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي وجدت أخيرا أداة أخي أبورائد واسمها RichTextBoxEx

واقتبست منها كود الأداة الشفافة
من بعد إذن أخي أبورائد

كود :

#Region " TransparentControl "
Public Class TransparentControl
    Inherits ContainerControl
    Public Sub New()
        SetStyle(ControlStyles.Opaque, True)
        UpdateStyles()
        AutoScaleMode = Windows.Forms.AutoScaleMode.None
        TabStop = False
    End Sub
    Private Const WS_EX_TRANSPARENT As Short = &H20
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        <Security.Permissions.SecurityPermissionAttribute(Security.Permissions.SecurityAction.LinkDemand, UnmanagedCode:=True)> _
        Get
            Dim cp = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or WS_EX_TRANSPARENT
            Return cp
        End Get
    End Property
End Class
#End Region

بالتوفيق