[طالب برمجة]

ضع هذا الكود في الفورم

PHP كود :

Const WM_SYSCOMMAND As Integer = &H112
Const SC_MOVE As Integer = &HF010
Protected Overrides Sub WndProc(ByRef message As Message)
    Select Case message.Msg
        Case WM_SYSCOMMAND
            Dim command As Integer = message.WParam.ToInt32() And &HFFF0
            If command = SC_MOVE Then Return
    End Select
    MyBase.WndProc(message)
End Sub