Clone the Assembly

Hi

I am trying to clone the assembly from Team center to Native, but I am getting error, can you please help me to resolve the Issue

Below is code and naming rule used is auto translate

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Annotations
Imports NXOpen.UI
Imports NXOpen.UF
Imports NXOpen.Utilities

Module Module1

Sub Main()

Dim ufs As UFSession = UFSession.GetUFSession()
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display
Dim lw As ListingWindow = theSession.ListingWindow
Dim myAsm As String = displayPart.FullPath
Dim myClone As NXOpen.UF.UFClone = ufs.Clone

lw.Open()
lw.WriteLine("Assembly to Clone: " & myAsm)
myClone.Terminate()
myClone.Initialise(NXOpen.UF.UFClone.OperationClass.CloneOperation)
myClone.SetDefNaming(UFClone.NamingTechnique.Autotranslate)
myClone.SetDefDirectory("D:\HPHV")
myClone.AddAssembly(myAsm, Nothing)

myClone.SetDryrun(False)
myClone.PerformClone(Nothing)
myClone.Terminate()
End Sub

End Module

Error Is:

NxOpen.NXException: Invalid clone numbering method specified
at NXOpen.UF.UFClone.SetDefNaming(NamingTechnique Naming_technique)
line:27