Dim myList(4) As String
myList(0) = "7700 Riverside Dr."
myList(1) = "71st & Riverside Dr."
myList(2) = "71st & Yale"
myList(3) = "81st & Riverside Dr."
Dim Coords() As Double=Array As Double(36.051458, -95.971462, 36.0606416155383, -95.9758329391479, 36.060849, -95.922146, 36.046446, -95.9652328491211 )
Dim i As Int
For i=0 To Coords.Length-2 Step 2
Dim Marker1 As Marker
Marker1=GoogleMap1.AddMarker(Coords(i), Coords(i+1), myList(i/2)) '"Marker #"&(i/2))
Marker1.Draggable=True
Next