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