See how it will works for you
Public Shared Sub CreateNewLayout()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim doclock As DocumentLock = doc.LockDocument()
Dim db As Database = doc.Database
Dim trm As Autodesk.AutoCAD.DatabaseServices.TransactionManager = db.TransactionManager
Using tr As Transaction = trm.StartTransaction()
Try
Dim btr As BlockTableRecord = CType(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
Dim lman As Autodesk.AutoCAD.DatabaseServices.LayoutManager = Autodesk.AutoCAD.DatabaseServices.LayoutManager.Current
lman.CopyLayout("Layout1", "NewLayout1") '<-- change layout names to suit
Dim ltid = lman.GetLayoutId("NewLayout1")
Dim lt As Layout = CType(tr.GetObject(ltid, OpenMode.ForWrite), Layout)
With lt
.UpgradeOpen()
'// add some properties here
.TabOrder = 1
End With
ed.Regen()
tr.Commit()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
MessageBox.Show(ex.StackTrace)
End Try
End Using
doclock.Dispose()
End Sub
~'J'~