cpd for cloning in vb