AddLine

[Steve Tremblay]

Hello All

I try to add line, but i have some probleme with.
I not have the control on the LINE, why ? The line is create, but is
BLACK, and WIDTH.
I want show a PUSHPIN on the LINE too, but the LINE is ALWAYS on TOP ? i
try to ADD the PUSHPIN, or the LINE before.

-------------------------------------------------------------
Dim tLigne as Variant
Dim tLocation as location
Dim tLocationFin as location

'Create Location
...

'Affiche a LIGNE
Set tLigne = Map.Shapes.AddLine(tLocation, tLocationFin)

'Verifie si le SHAPE est VALIDE
If Not tLigne Is Nothing Then
tLigne.Name = Uid
tLigne.BorderColor = Qbcolor(14)
tLigne.BorderWidth = 1
End If

Thank you for your help

--
Steve Tremblay