hw.Text = "Links Oben"
                hw.Cursor = Cursors.SizeNWSE
                If Point.X >= 0 And Point.X <= Menge / 2 Then
                    hw.X = Menge / 10
                Else
                    hw.X = -Menge / 10
                End If
                If Point.Y <= Menge / 2 And Point.Y >= 0 Then
                    hw.Y = Menge / 10
                Else
                    hw.Y = -Menge / 10
                End If
            Case 4
                hw.Text = "Rechts"
                hw.Cursor = Cursors.SizeWE
                If Point.X >= Steuerelement.Width - Menge / 2 And Point.X <= _
                  Steuerelement.Width Then
                    hw.X = Menge / 10
                    hw.w = 0
                Else
                    hw.X = -Menge / 10
                    hw.w = 0
                End If
            Case 5
                hw.Text = "Rechts Unten"
                hw.Cursor = Cursors.SizeNWSE
                If Point.X >= Steuerelement.Width - Menge / 2 And Point.X <= _
                  Steuerelement.Width Then
                    hw.X = Menge / 10
                    hw.w = 0
                Else
                    hw.X = -Menge / 10
                    hw.w = 0
                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 6
                hw.Text = "Rechts Oben"
                hw.Cursor = Cursors.SizeNESW
                If Point.X >= Steuerelement.Width - Menge / 2 And Point.X <= _
                  Steuerelement.Width Then
                    hw.X = Menge / 10
                    hw.w = 0
                Else
                    hw.X = -Menge / 10
                    hw.w = 0
                End If
                If Point.Y <= Menge / 2 And Point.Y >= 0 Then
                    hw.Y = Menge / 10
                Else
                    hw.Y = -Menge / 10
                End If
            Case 7
                hw.Text = "Unten"
                hw.Cursor = Cursors.SizeNS
                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 8
                hw.Text = "Oben"
                hw.Cursor = Cursors.SizeNS
                If Point.Y <= Menge / 2 And Point.Y >= 0 Then
                    hw.Y = Menge / 10
                Else
                    hw.Y = -Menge / 10
                End If
        End Select
        Return hw
    End Function
End Class