<Autodesk.AutoCAD.Runtime.CommandMethod("BLOCKFINDER", Autodesk.AutoCAD.Runtime.CommandFlags.Session)> _
Public Sub BlockFinder()
Try
DisplayDialog()
Catch ex As Exception
MsgBox(ex)
End Try
End Sub
Sub DisplayDialog()
Try
Dim BlockFinderForm As New BlockFindForm
Autodesk.AutoCAD.ApplicationServices.Application.ShowModalDialog(BlockFinderForm)
Catch ex As Exception
MsgBox(ex)
End Try
End Sub