'Das hier ist in dem Klassen Modul Resized
Public Class Resized
    Enum Where
        Nirgends ''
        Links ''
        Links_Unten ''
        Links_Oben ''
        Rechts ''
        Rechts_Unten ''
        Rechts_Oben
        Unten ''
        Oben ''
    End Enum
    Function WhereIs(ByVal Point As Point, ByVal Steuerelement As Control, _
      ByVal Menge As Integer) As How
        Dim Type As Where = Where.Nirgends ''1
        If Point.X <= Steuerelement.Width And Point.X >= Steuerelement.Width _
          - Menge Then
            Type = Where.Rechts ''2
            If Point.Y <= Steuerelement.Height And Point.Y >= _
              Steuerelement.Height - Menge Then
                Type = Where.Rechts_Unten ''3
            Else
                If Point.Y <= Menge And Point.Y >= 0 Then
                    Type = Where.Rechts_Oben
                End If
            End If
        Else
            If Point.Y <= Steuerelement.Height And Point.Y >= _
              Steuerelement.Height - Menge Then
                Type = Where.Unten ''4
                If Point.X <= Menge And Point.X >= 0 Then
                    Type = Where.Links_Unten ''5
                End If
            Else
                If Point.X <= Menge And Point.X >= 0 Then
                    Type = Where.Links ''6
                    If Point.Y <= Menge And Point.Y >= 0 Then
                        Type = Where.Links_Oben ''7
                    End If
                Else
                    If Point.Y <= Menge And Point.Y >= 0 Then
                        Type = Where.Oben
                    End If
                End If
            End If
        End If
        Dim hw As New How
        hw.Number = Type
        Select Case Type
            Case 0
                hw.Text = "Nirgends"
                hw.Cursor = Cursors.Default
                hw.X = 0 : hw.Y = 0
                hw.DoResize = False
            Case 1
                hw.Text = "Links"
                hw.Cursor = Cursors.SizeWE
                If Point.X >= 0 And Point.X <= Menge / 2 Then
                    hw.X = Menge / 10
                Else
                    hw.X = -Menge / 10
                End If
            Case 2
                hw.Text = "Links Unten"
                hw.Cursor = Cursors.SizeNESW
                If Point.X >= 0 And Point.X <= Menge / 2 Then
                    hw.X = Menge / 10
                Else
                    hw.X = -Menge / 10
                End If
                If Point.Y >= Steuerelement.Height - Menge / 2 And Point.Y _
                  <= Steuerelement.Height Then
                    hw.Y = Menge / 10
                    hw.h = 0
                Else
                    hw.Y = -Menge / 10
                    hw.h = 0
                End If
            Case 3