Public Class Form1
    Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Public Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal bRevert As Boolean) As IntPtr
    Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Integer) As Integer
 
    Public Const MF_DISABLED As Integer = &H2&
    Public Const MF_BYPOSITION As Integer = &H400&
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(0, 0)
        Me.TopMost = True
        Call DeshabilitarMovimiento(Me)
    End Sub
 
    Private Sub DeshabilitarMovimiento(ByRef oForm As System.Windows.Forms.Form)
        Call RemoveMenu(GetSystemMenu(oForm.Handle, False).ToInt32, 1, MF_DISABLED Or MF_BYPOSITION)
        Call DrawMenuBar(oForm.Handle.ToInt32)
    End Sub
End Class