WBCN Mouse Code Copyright©

Array_Before = "0 0 1 1 0 0 1 1 0 0 1 1 0 0"
                 Pointer1 → ↑ ↑

Array_After  = "0 0 1 1 0 0 1 1 0 0 1 1 0 0"
               Pointer2 → ↑ ↑

(i.e. Pointer1 → Pointer2; "11" → "01" ; Direction = "Left")

Code:

Select Case Pointer1
  Case "00"
    If Pointer2 = "10" Then
      Direction = "Left"
    End If
    If Pointer2 = "01" Then
      Direction = "Right"
    End If
  Case "01"
    If Pointer2 = "00" Then
      Direction = "Left"
    End If
    If Pointer2 = "11" Then
      Direction = "Right"
    End If
  Case "10"
    If Pointer2 = "11" Then
      Direction = "Left"
    End If
    If Pointer2 = "00" Then
      Direction = "Right"
    End If
  Case "11"
    If Pointer2 = "01" Then
      Direction = "Left"
    End If
    If Pointer2 = "10" Then
      Direction = "Right"
    End If
End Select


Also See: http://home.comcast.net/~legoines/Mouse_Code.pdf