レイヤー内のオブジェクトを別レイヤーに移動する方法

[VB.net]

Sub Main()
  iDoc = app.Open(filename)
  newDoc = app.Documents.Add(Width:=595.28, Height:=841.89)

  For Each lay As Illustrator.Layer In iDoc.Layers
    Dim newLay As Illustrator.Layer = newDoc.Layers.Add
   
    lay.Locked = False
    lay.Visible = True
    'レイヤーの持つオブジェクトを選択状態にする
    lay.HasSelectedArtwork = True
    newLay.Name = lay.Name
  Next

  iDoc.Activate()   '念のためアクティブに
  iDoc.Copy()       'ドキュメントのコピー
  newDoc.Activate() '念のためアクティブに
  newDoc.Paste()    '貼り付け
End Sub

イラストレーター10 VB.net2008で検証。参照設定にIllstrator10.0.0(たしか…)を参照設定する必要があります。一つずつ移動するより早く完了します。