SUB Fill ( Color AS Integer )