'Beispiel: VB .Net - Fenster verschieben verhindern. 2 ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Namespace VBDotNet_FensterVerschiebenVerhindern_2 Public Class MainForm Inherits System.Windows.Forms.Form Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 149) Me.Name = "MainForm" Me.Text = "Testform <Fenster verschieben verhindern. 2>" End Sub #End Region Protected Overloads Overrides Sub WndProc(ByRef m As Message) Select m.Msg Case WM_SYSCOMMAND Dim cmd As Int32 = m.WParam.ToInt32 And &HFFF0 If cmd = SC_MOVE Then Return End If End Select MyBase.WndProc(m) End Sub End Class End Namespace Public Module Win32Api Public Const SC_MOVE As Int32 = &HF010 Public Const WM_SYSCOMMAND As Int32 = &H112 End Module