Функция коня в шахматах

Public Function Lodya(ByVal From As SBoard, ByVal Target As SBoard) As Boolean
 
        If From.SRow0 = Target.SRowT Or From.SColumn0 = Target.SColumnT Then
            Return True
        End If
        Return False
    End Function

 Public Structure SBoard
        Public SName As String 'Имя Фигуры
        Public SRow0 As Short 'Начальный Х
        Public SColumn0 As Short 'Начальный У
        Public SRowT As Short 'Целевой Х
        Public SColumnT As Short 'Целевой У
 
   End Structure

Public Function Horse(ByVal Whence As SBoard, ByVal Target As SBoard) As Boolean
    If Math.Abs(Whence.SRow0 - Target.SRowT) = 1 And Math.Abs(Whence.SColumn0 - Target.SColumnT) = 2 Then
        Return True
    End If
    If Math.Abs(Whence.SRow0 - Target.SRowT) = 2 And Math.Abs(Whence.SColumn0 - Target.SColumnT) = 1 Then
        Return True
    End If
    Return False
End Function

Public Structure SBoard
    Public SName As String 'Имя Фигуры
    Public SRow As Short 'Положение фигуры по Х
    Public SColumn As Short 'Положение фигуры по У
End Structure
 
Public Function Horse(ByVal Whence As SBoard, ByVal Target As SBoard) As Boolean
    If Math.Abs(Whence.SRow - Target.SRow) = 1 And Math.Abs(Whence.SColumn - Target.SColumn) = 2 Then
        Return True
    End If
    If Math.Abs(Whence.SRow - Target.SRow) = 2 And Math.Abs(Whence.SColumn - Target.SColumn) = 1 Then
        Return True
    End If
    Return False
End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim p1 As New Point(NumericUpDown1.Value, NumericUpDown2.Value)
    Dim p2 As New Point(NumericUpDown4.Value, NumericUpDown3.Value)
    Dim pv() As Point = Versions(p1)
    If pv.Contains(p2) Then
        MsgBox("Ok!")
    Else
        MsgBox("No")
    End If
End Sub
Private Function Versions(ByVal pp As Point) As Point()
    Dim lp As New List(Of Point)
    Dim a As Integer = pp.X
    Dim b As Integer = pp.Y
    lp.Add(New Point(a + 2, b + 1))
    lp.Add(New Point(a + 2, b - 1))
    lp.Add(New Point(a + 1, b + 2))
    lp.Add(New Point(a + 1, b - 2))
    lp.Add(New Point(a - 1, b + 2))
    lp.Add(New Point(a - 1, b - 2))
    lp.Add(New Point(a - 2, b + 1))
    lp.Add(New Point(a - 2, b - 1))
    For i = lp.Count - 1 To 0 Step -1
        If lp(i).X < 0 Then
            lp.RemoveAt(i)
            Continue For
        End If
        If lp(i).Y < 0 Then
            lp.RemoveAt(i)
            Continue For
        End If
        If lp(i).X > 7 Then
            lp.RemoveAt(i)
            Continue For
        End If
        If lp(i).Y > 7 Then
            lp.RemoveAt(i)
        End If
    Next
    Return lp.ToArray
End Function