[.NET/.NET2] RETROUVER LA PROPRIÉTÉ MOVEABLE DE VB

Public Class MoveableForm

    Inherits System.Windows.Forms.Form

    Private m_moveable As Boolean

    Private Const HTCAPTION As Integer = &H2
    Private Const WM_SYSCOMMAND As Integer = &H112
    Private Const WM_NCLBUTTONDOWN As Integer = &HA1
    Private Const SC_MOVE As Integer = &HF010

    'Propriété Moveable que l'on retrouve dans VB6
    Public Property Moveable() As Boolean
        Get
            Return m_moveable
        End Get
        Set(ByVal value As Boolean)
            m_moveable = value
        End Set
    End Property

    Public Sub New()

        MyBase.New()

        m_moveable = True

    End Sub

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        If m_moveable = False Then

            'Recherche les messages correspondants à un déplacement de feuille
            '(clic sur barre de titre et/ou commande de déplacement) alors les ignores.
            If (m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32() = SC_MOVE) Or _
                (m.Msg = WM_NCLBUTTONDOWN AndAlso m.WParam.ToInt32() = HTCAPTION) Then

                Exit Sub

            End If

        End If

        MyBase.WndProc(m)
    End Sub

    Private Sub InitializeComponent()
        Me.SuspendLayout()
        '
        'Moveable
        '
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Name = "Moveable"
        Me.Text = "toto"
        Me.ResumeLayout(False)

    End Sub
End Class