Работа с шахматной доской в Vb

Формулировка задачи:

Помогите исправить. Тут ферзь ходит по диагонали, вертикали и горизонтали, а ещё помогите сделать короля (ходит также только на 1 клетку передвигаться может)

Option Explicit
Private Sub Command1_Click()
    Dim a1 As Integer, b1 As Integer, a2 As Integer, b2 As Integer
    a1 = InputBox("Введите текущее положение слона A=1;B=2;C=3; D=4;E=5;F=6;G=7;H=8(X)")
    b1 = InputBox("Введите текущее положение слона (Y)")
    a2 = InputBox("Введите местоназначение слона A=1;B=2;C=3; D=4;E=5;F=6;G=7;H=8(X)")
    b2 = InputBox("Введите местоназначение слона (Y)")
    If CanMove(a1, b1, a2, b2) Then
    Print "Ход возможен"
    Else
    Print "Ход невозможен"
    End If
End Sub
Function CanMove(x1%, y1%, x2%, y2%) As Boolean
    CanMove = (Abs(y2 - y1) = Abs(x2 - x1))
    CanMove = (x1 = x2 Or y1 = y2)
End Function

Решение задачи: «Работа с шахматной доской в Vb»

textual
                            Листинг программы 
                        

                            Function CanMoveKing(x1%, y1%, x2%, y2%) As Boolean
    CanMoveKing = (Abs(y2 - y1) < 2 ) AND (Abs(x2 - x1) < 2)
End Function
                        