Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Const WM_LBUTTONDOWN As Integer = &H201 Const WM_LBUTTONDBLCLK As Integer = &H203
If Me.ReadOnly = True Then Select Case m.Msg Case WM_LBUTTONDBLCLK, WM_LBUTTONDOWN 'MyBase.WndProc(m) Case Else MyBase.WndProc(m) End Select Else MyBase.WndProc(m) End If End Sub