Replace

SUB Replace ( OldColor AS Integer, NewColor AS Integer )

Замещает цвет другим.