Private Function GenerateMoves(SentBoard As Board, SourceSquare As Point) As List(Of Point)
    Dim moveable_squares As New List(Of Point)
    Select Case SentBoard.PieceBoard(SourceSquare.X, SourceSquare.Y)
        Case 6, -6
            Dim pawn As New Board.Pawn
            moveable_squares = pawn.CalculateMove(SentBoard, SourceSquare)
        Case 5, -5
            Dim knight As New Board.Knight
            moveable_squares = knight.CalculateMove(SentBoard, SourceSquare)
        Case 4, -4
            Dim bishop As New Board.Bishop
            moveable_squares = bishop.CalculateMove(SentBoard, SourceSquare)
        Case 3, -3
            Dim rook As New Board.Rook
            moveable_squares = rook.CalculateMove(SentBoard, SourceSquare)
        Case 2, -2
            Dim queen As New Board.Queen
            moveable_squares = queen.CalculateMove(SentBoard, SourceSquare)
        Case 1, -1
            Dim king As New Board.King
            moveable_squares = king.CalculateMove(SentBoard, SourceSquare)
    End Select
    Return moveable_squares
End Function