Try This One here you want to get route between Two perticulae points
Dim start As New PointLatLng(lstR(0).Lat, lstR(0).Lng)
Dim ends As New PointLatLng(lstR(4).Lat, lstR(4).Lng)
Dim route As MapRoute = GMapProviders.GoogleMap.GetRoute(start, ends, False, False, 13)
Dim rs As New GMapRoute(route.Points, "Route1")
Dim iOvrL As New GMapOverlay
iOvrL.Routes.Add(rs)
SpcMap.Overlays.Add(iOvrL)