Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oActiveSheet As Sheet
oActiveSheet = oDrawDoc.ActiveSheet
Dim oSymbol As SurfaceTextureSymbol
oSymbol=oActiveSheet.SurfaceTextureSymbols.Item(1)
Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry
Dim oLeaderPoints As ObjectCollection
oLeaderPoints = ThisApplication.TransientObjects.CreateObjectCollection
oLeaderPoints.Add(oTG.CreatePoint2d(0, 0))
oActiveSheet.SurfaceTextureSymbols.AddByDefinition(oLeaderPoints, oSymbol.Definition)