Code:
Dim ADoc As Autodesk.AutoCAD.Interop.AcadDocument
ADoc = ACadApp.Documents.Add(IO.Path.GetFileName(theDWG_Data.AcadDrawingTemplate))
SymBBMgr = ADoc.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")Dim BdMgr As SymBBAuto.McadTitleBorderMgr
BdMgr = SymBBMgr.TitleBorderMgr
Dim TBDesc As SymBBAuto.McadTitleBorderDescriptor
TBDesc = BdMgr.NewDescriptor
Dim BdContext As SymBBAuto.McadTitleBorderContext
BdContext = BdMgr.NewContext
Dim Border As SymBBAuto.McadBorder
Border = TBDesc.Border
Border.Name = "din_a4" 'theDWG_Data.GenFormatBorderName & ".dwg"
Dim Title As SymBBAuto.McadTitle
Title = TBDesc.Title
Title.Name = "Gentitle" 'theDWG_Data.GenSchriftFeldName & ".dwg"
TBDesc.TitleBorderScale = theDWG_Data.GenScaleDbl
Dim pos(0 To 2) As Double
pos(0) = 0
pos(1) = 0
pos(2) = 0
TBDesc.Position = pos
Dim TitleBrd As SymBBAuto.McadTitleBorder
TitleBrd = BdMgr.CreateTitleBorder(TBDesc, BdContext)
'BdMgr.CreateTitleBorder(TBDesc, BdContext)