Kreuzungswinkel zwischen 2 Linien

Danke für den Link im ESRI Forum.

Hab den Code in VB kopiert und alles eingestellt.
Leider bekomm ich eine Fehlermeldung:
"Fehler beim Kompilieren.
Benutzerdefinierter Typ nicht definiert."

Hier ist die Funktion in welcher der Fehler ist. In diesem Statement ist der Fehler:
"Set pLine = New esriCore.Line"


Function GetNormal(pCurve As ICurve, pPoint As IPoint, _
dOff As Double) As IPoint
Dim pOutPoint As IPoint, dAlong As Double
Dim dFrom As Double, bRight As Boolean
Set pOutPoint = New Point
pCurve.QueryPointAndDistance esriNoExtension, pPoint, True, _
pOutPoint, dAlong, dFrom, bRight
Dim pLine As ILine
Set pLine = New esriCore.Line
pCurve.QueryNormal esriNoExtension, dAlong, True, dOff, pLine
Set GetNormal = pLine.ToPoint
End Function


Hab leider selber kaum eine Ahnung vom Programmieren.

Danke.
Hannes

Vielen Dank @Maxilla, das Script funktioniert jetzt.

Ich hab aber noch eine Frage und zwar werden die Winkel an den Kreuzungspunkten im Moment nur angezeigt.
Ist es möglich diese Werte in einen Punktelayer(Crossing) in die Tabelle(Angel) zu schreiben?


Vielen Dank.

Hab ich schon gesehen.
Nur weiß ich nicht wie ich den Layer bzw. Tabellen Namen einbau.