SUB Resize ( Size AS Integer )