Private Sub BtnAddDocument_Click(sender As System.Object, e As System.EventArgs) Handles BtnAddDocument.Click
Try
Application.DocumentManager.DocumentActivationEnabled = True
Dim AddedDoc As Document = Application.DocumentManager.Add("acadiso.dwt")
'...add it to a list etc...
Catch ex As Exception
ShowError("Error while adding a new drawing." & vbLf & ex.Message)
Exit Sub
End Try
End Sub