Public Class MyOwnTextbox
    Inherits Infragistics.Win.UltraWinEditors.UltraTextEditor
    Private Const WM_NCHITTEST As Int32 = &H84
    Private Const WM_KEYDOWN As Int32 = &H100
 
    Private _protect As Boolean
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        '// Debug.WriteLine(m.ToString)
        If _protect AndAlso (m.Msg = WM_NCHITTEST OrElse m.Msg = WM_KEYDOWN) _
          Then Return
        MyBase.WndProc(m)
    End Sub
    Public Property Protect() As Boolean
        Get
            Return _protect
        End Get
        Set(ByVal Value As Boolean)
            _protect = Value
            If _protect Then
                Me.Visible = False
                Me.Visible = True
            End If
        End Set
    End Property
End Class

Gru?
Lkatsch

"Wer glaubt gut zu sein, hat aufgeh?rt besser zu werden..."