vba - ラベル（前）ラベルとの衝突

Question

私はいくつかのゲームを行っていますが、コリオン テストに問題があります。私がやろうとしているのは、座標が空であるかどうかを確認して、プレイヤーが移動できるようにすることです。これは私がこれまで持っているものですが、うまくいきません...

Function ColissionWithPoint(ByVal Lbl1 As Label, ByVal Lbl2 As Label) As Boolean
    Dim pUp As New Point(Lbl1.Location.X - 1)
    Dim pDown As New Point(Lbl1.Location.X + Lbl1.Height + 1)
    Dim pLeft As New Point(Lbl1.Location.Y - 1)
    Dim pRight As New Point(Lbl1.Location.Y + Lbl1.Width + 1)
    If pDown.Equals(Lbl2.Bounds) Or pUp.Equals(Lbl2.Bounds) Or pLeft.Equals(Lbl2.Bounds) Or pRight.Equals(Lbl2.Bounds) Then
        Return True
    Else
        Return False
    End If
End Function