Private StartPunkt As New Point(20, 20) 'Hier die Position des Fensters 
' festlegen
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Location = StartPunkt
    End Sub
 
    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.LocationChanged
        Me.Location = StartPunkt ' Wenn verschoben, sofort zurückschieben
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus