Me.CollisionRectangle = New Rectangle( _
BORIS_COLLISION_STARTX, BORIS_COLLISION_STARTY, _
BORIS_COLLISION_DX, BORIS_COLLISION_DY)
End Sub
'–
'This function should be called to bring about any change
'of state
'It sets/resets any other variables we need to when we deal
'with state transitions
'–
Private Sub ChangeMyMovementState(ByVal newState As _
ModeOfMovement)
m_myModeOfMovement = newState
End Sub
'–
'MOVE Boris
'
'This function is called to move the character on the screen