Public Enum Dir
		Here
		There
	End Enum

	Public Sub Move(ByVal o As Vector)
		Dim dir As Dir = Status.Dir.Here
		Select Case dir
			Case Status.Dir.Here
				Dim fill As SolidColorBrush
				fill = Brushes.Navy
		End Select
	End Sub