Replace

SUB Replace ( OldColor AS Integer, NewColor AS Integer )

Replaces a color by another one.