Private Sub cmdInsert_Click()
Dim i As Long
Dim j As Long
For i = 0 To File1.ListCount - 1
If File1.Selected(i) Then
AcadApp.Documents.Open File1.Path + "\" + File1.List(i)
For j = 0 To File2.ListCount - 1
If File2.Selected(j) Then
Dim block As String
Dim insertPnt(0 To 2) As Double
insertPnt(0) = 5500
insertPnt(1) = -1500
insertPnt(2) = 0
block = File2.Path + "\" + File2.List(j)
Dim blockobj As AcadBlockReference
Set blockobj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(insertPnt, block, 1, 1, 1, 0)
AcadApp.ActiveDocument.Save
AcadApp.ActiveDocument.Close
Close #1
End If
Next j
Close #1
End If
Next i
End Sub