Unfortunately creating a sample would be quite a task as the code resides in Many modules.
What I can show you is the core issue routine
Drawroute. Is called when the mouse moves on the map and A global routeDrawing is set to true.
The mouse click event causes each point to be added to the polyline.
The Drawsimply draws the line plus the last point to Mouse position.
What makes sense is to draw the Last Line ( Last Point to Cursor) seperately so Im not constantly updating the polyline.
Just dont know how.
Public Sub drawroute()
' build points for each element last element is mouse pos
Dim pstr As String = ""
Dim pts() As String
If gvRoute.Rows.Count = 0 Then Exit Sub ' IF only one point on the route, then dont draw
For i = 0 To gvRoute.Rows.Count - 1 ' For each point in the list
If i <> 0 Then pstr &= ","
pstr &= gvRoute.Rows(i).Cells(2).Value & " " & gvRoute.Rows(i).Cells(1).Value ' add to polyline points list
Next
pstr &= "," & Form1.TSlon.Text & " " & Form1.tslat.Text ' Add the current mouse position. ( Always Changing makes it very slow)
pts = Split(pstr, ",")
routes(CmbAsset.SelectedIndex) = pstr ' Also add to the ROutes array
RouteLayer.InternalFeatures.Remove("VD-" & CmbAsset.Text) ' Remove existing polyline
drawpline("VD-" & CmbAsset.Text, RouteLayer, GeoColor.StandardColors.BlueViolet, 4, pts) ' Draw new
Form1.WinformsMap1.Refresh() ' The slow refresh
End Sub