Public Class MyLabel
    Inherits Label
    Private WM_GETTEXT As Integer = &HD
    Private WM_LBUTTONDBLCLK As Integer = &H203
    Private doubleclickflag As Boolean = False
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_LBUTTONDBLCLK Then
            doubleclickflag = True
        End If
        If m.Msg = WM_GETTEXT AndAlso doubleclickflag Then
            doubleclickflag = False
            Return
        End If
        MyBase.WndProc(m)
    End Sub
    Private mText As String
 
    Public Overrides Property Text As String
        Get
            Return mText
        End Get
        Set(value As String)
            If mText <> value Then
                mText = value
                Me.Refresh()
                Me.OnTextChanged(EventArgs.Empty)
            End If
        End Set
    End Property
End Class