Hope I'm reading what you want correctly.
Code:
<Line x:Name="myLine" Stroke="Black" Fill="Black" StrokeThickness="2" StrokeDashArray="2,2" />
Code:
Dim p1 As New Point(100, 100)
Dim p2 As New Point(200, 150)
myLine.X1 = p1.X
myLine.Y1 = p1.Y
Dim sb As New Storyboard
Dim xAnim As New DoubleAnimation
xAnim.Duration = New Duration(TimeSpan.FromSeconds(2))
xAnim.From = p1.X
xAnim.To = p2.X
Storyboard.SetTarget(xAnim, myLine)
Storyboard.SetTargetProperty(xAnim, New PropertyPath(Line.X2Property))
sb.Children.Add(xAnim)
Dim yAnim As New DoubleAnimation
yAnim.Duration = New Duration(TimeSpan.FromSeconds(2))
yAnim.From = p1.Y
yAnim.To = p2.Y
Storyboard.SetTarget(yAnim, myLine)
Storyboard.SetTargetProperty(yAnim, New PropertyPath(Line.Y2Property))
sb.Children.Add(yAnim)
sb.Begin()