Dim X As Int, Y As Int
For X=7 To 18
For Y=47 To 36 Step -1
Dim PathOverlay1 As PathOverlay
PathOverlay1.Initialize(MapView1, Colors.Red)
MapView1.AddOverlay(PathOverlay1)
PathOverlay1.StrokeWidth=1
PathOverlay1.Alpha=200
PathOverlay1.AddPoint (Y,X)
PathOverlay1.AddPoint (Y+1,X)
'
Dim PathOverlay1 As PathOverlay
PathOverlay1.Initialize(MapView1, Colors.Red)
MapView1.AddOverlay(PathOverlay1)
PathOverlay1.StrokeWidth=1
PathOverlay1.Alpha=200
PathOverlay1.AddPoint (Y,X)
PathOverlay1.AddPoint (Y,X+1)
Next
Next