' _radius = Abstand zum Rand, ab dem das Form andockt
 
Public Sub Andocken(ByVal fenster As Form)
 
      If Not fenster.WindowState = FormWindowState.Normal Then Exit Sub
 
      ' Bildschirm (BS) unten (ohne und mit Taskleiste)
      If fenster.Height + fenster.Top > _
        SystemInformation.PrimaryMonitorSize.Height - _radius Then
         fenster.Top = SystemInformation.PrimaryMonitorSize.Height - _
         fenster.Height
      ElseIf fenster.Height + fenster.Top > _
      SystemInformation.WorkingArea.Height - _radius Then
         fenster.Top = SystemInformation.WorkingArea.Height - fenster.Height
      End If
 
      ' BS links und rechts
      If fenster.Left < _radius Then
         fenster.Left = 0
      ElseIf fenster.Left + fenster.Width > _
        SystemInformation.PrimaryMonitorSize.Width - _radius Then
         fenster.Left = SystemInformation.PrimaryMonitorSize.Width - _
         fenster.Width
      End If
 
      ' BS oben (ohne und mit Taskleiste)
      If fenster.Top < _radius Then
         fenster.Top = 0
      ElseIf fenster.Top < SystemInformation.WorkingArea.Top + _radius Then
         fenster.Top = SystemInformation.WorkingArea.Top
      End If
 
   End Sub