Transparent TextBox

Public Class CorrMTextBox
    Inherits RichTextBox

    Public Sub New()
        Me.BorderStyle = 0
        Me.ScrollBars = RichTextBoxScrollBars.None
        Me.Size = New Size(100, 20)
        Me.WordWrap = False
        Me.SetStyle(ControlStyles.Opaque, True)
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, False)
    End Sub

    Sub ForceRefresh(sender As Object, e As EventArgs) Handles Me.TextChanged
        Me.UpdateStyles()
    End Sub

    Sub CorrMTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then
            e.Handled = True
        End If
    End Sub

    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20 ''#WS_EX_TRANSPARENT
            Return cp
        End Get
    End Property

    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
    End Sub

End Class