' alle benötigten Deklarationen
  Private Declare Function GetSystemMenu Lib "user32" ( _
    ByVal hwnd As Integer, _
    ByVal bRevert As Integer) As Integer
 
  Private Declare Function RemoveMenu Lib "user32" ( _
    ByVal hMenu As Integer, _
    ByVal nPosition As Integer, _
    ByVal wFlags As Integer) As Integer

  Private Declare Function GetActiveWindow Lib "user32" _
    Alias "GetActiveWindow" () As Integer
 
  Private Const SC_MOVE = &HF010&
  Private Const MF_BYCOMMAND = &H0&
 
  ' Entfernen des "Verschieben"-Befehls im 
  ' Systemmenü des Fensters
  Public Sub LockWindowPos(ByVal hWnd As Integer)
    Dim lhSysMenu As Integer
    Dim lRetVal As Integer
 
    lhSysMenu = GetSystemMenu(hWnd, False)
    lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)
  End Sub

  Private Sub Form1_Activated(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Activated
 
    Dim hWnd As Integer
 
    hWnd = GetActiveWindow()
    LockWindowPos(hWnd)
  End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de