' (C) Copyright 2007 by Autodesk, Inc. 
'
' Permission to use, copy, modify, and distribute this software in
' object code form for any purpose and without fee is hereby granted, 
' provided that the above copyright notice appears in all copies and 
' that both that copyright notice and the limited warranty and
' restricted rights notice below appear in all supporting 
' documentation.
'
' AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. 
' AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
' MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC. 
' DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
' UNINTERRUPTED OR ERROR FREE.
'
' Use, duplication, or disclosure by the U.S. Government is subject to 
' restrictions set forth in FAR 52.227-19 (Commercial Computer
' Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
' (Rights in Technical Data and Computer Software), as applicable.
'
' This sample application shows how to create title border using COM API in SymBBAuto.
'

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.ApplicationServices

Imports System.Runtime.InteropServices
<Assembly: ExtensionApplication(GetType(netTitleBorder.netTitleBorder))> 
<Assembly: CommandClass(GetType(netTitleBorder.CreateCommand))> 

Namespace netTitleBorder

    Public Class netTitleBorder

        Implements Autodesk.AutoCAD.Runtime.IExtensionApplication

        Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize

        End Sub

        Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate

        End Sub

    End Class

    Public Class CreateCommand
        ' Define command 'titleBorder'
        <Autodesk.AutoCAD.Runtime.CommandMethod("TitleBorder")> _
        Public Sub titleBorder()
            Dim titleBorderDialog As New frmTitleBorder
            Application.ShowModelessDialog(titleBorderDialog)
        End Sub
    End Class
End Namespace