Dim myxAchse As Integer = XAchse
            Dim myyAchse As Integer = YAchse
            Dim myxAnim As Integer = Me.Location.X
            Dim myyAnim As Integer = Me.Location.Y
 
            If myxAchse + Me.Width > PForm.Left + PForm.Width Then
                myxAchse -= (myxAchse + Me.Width) - (PForm.Left + PForm.Width)
            End If
            If myyAchse + Me.Height > PForm.Top + PForm.Height Then
                myyAchse -= (myyAchse + Me.Height) - (PForm.Top + PForm.Height)
            End If
            If Animation = True Then
                Do While Not myxAnim = myxAchse Or Not myyAnim = myyAchse
                    If myxAnim > myxAchse Then
                        myxAnim -= 1
                    ElseIf myxAnim < myxAchse Then
                        myxAnim += 1
                    ElseIf myxAnim = myxAchse Then
                        myxAnim = myxAchse
                    End If
                    If myyAnim > myyAchse Then
                        myyAnim -= 1
                    ElseIf myyAnim < myyAchse Then
                        myyAnim += 1
                    ElseIf myyAnim = myyAnim Then
                        myyAnim = myyAchse
                    End If
                    Me.Location = New Point(myxAnim, myyAnim)
                    Me.Refresh()
                    Threading.Thread.Sleep(20)
                Loop
            End If