tmn = "vb_api_trial_3"
            nn = "vb_api_trial_3_copy"

            Dim temp_model_d_1 As IpfcModelDescriptor
            Dim temp_model_1 As IpfcModel
            Dim ret_opts_1 As IpfcRetrieveModelOptions

            temp_model_d_1 = (New CCpfcModelDescriptor).Create(EpfcModelType.EpfcMDL_ASSEMBLY, "", "")
            temp_model_d_1.Path = tmn
            ret_opts_1 = (New CCpfcRetrieveModelOptions).Create()
            temp_model_1 = ses.RetrieveModelWithOpts(temp_model_d_1, ret_opts_1)

            Dim model_1 As IpfcModel
            model_1 = temp_model_1.CopyAndRetrieve(nn, DBNull.Value)
            model_1.Save()

	    ' Above model is assembly. Similarly I also copy 2 child parts and assembly drawing