C#

Sub TestAdd()<br />
<br />
Dim miDocSrc As MODI.Document<br />
Dim miDocDest As MODI.Document<br />
<br />
Set miDocSrc = New MODI.Document<br />
Set miDocDest = New MODI.Document<br />
miDocSrc.Create "C:\document1.tif"<br />
miDocDest.Create<br />
<br />
With miDocDest.Images<br />
.Add miDocSrc.Images(0), Nothing<br />
.Add miDocSrc.Images(2), Nothing<br />
.Add miDocSrc.Images(1), miDocDest.Images(1)<br />
End With<br />
<br />
miDocDest.SaveAs "C:\document2.mdi", miFILE_FORMAT_MDI<br />
<br />
Set miDocDest = Nothing<br />
Set miDocSrc = Nothing<br />
<br />
End Sub<br />
<br />