Convert Distance - Latitude program to a mapping distance program

[hackedman]

Hi,

I've found this code that makes the breakdown between 2 distances using Google Maps.

What I want is, with the 2 distances inserted the action-Button open IE, Opera, Firefox, Whatever ... and in this window, Google Maps show the mapping distance from adress 1 to adress 2 automatically.

Thank you

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class GEOStuffForm
	Inherits System.Windows.Forms.Form
	Private Sub AskGoogleButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles AskGoogleButton.Click
		Dim Lon As String
		Dim Lat As String
		Dim Comma As Object
		Dim LC As Object
		Dim GC2 As Object
		Dim GC As Object
		Dim a As String
		Dim GoogleWebPage As String
		Dim WebURL As String
		Dim i As Object
		On Error GoTo BolloxedData
		'===========
		'CLEAR STUFF
		'===========
		Latitude(1).Text = "" : Latitude(2).Text = ""
		Longitude(1).Text = "" : Longitude(2).Text = ""
		System.Windows.Forms.Application.DoEvents()
		'==========================================
		'CHECK IF USER FILLED IN THE ADDRESS FIELDS
		'==========================================
		If MissingData Then
			MsgBox("Please fill in the form correctly.", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Exclamation, "Whoops!")
			Exit Sub
		End If
		AskGoogleButton.Enabled = False
		'UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
		System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
		Dim NotFound As Boolean
		For i = 1 To 2
			NotFound = True
			WebURL = "http://maps.google.com/maps?q="
			WebURL = WebURL & Trim(Street(i).Text) & ",+"
			WebURL = WebURL & Trim(City(i).Text) & ",+"
			WebURL = WebURL & Trim(State(i).Text) & ",+"
			WebURL = WebURL & Trim(Zip(i).Text)
			WebURL = Replace(WebURL, " ", "+")
			GoogleWebPage = GetUrlSource(WebURL)
			a = LCase(GoogleWebPage)
			'=======================================================
			'EXTRACT THE LATITUDE AND LONGITUDE FROM GOOGLE WEB PAGE
			'=======================================================
			'UPGRADE_WARNING: Couldn't resolve default property of object GC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			GC = InStr(a, ":{lat:") + 2
			'UPGRADE_WARNING: Couldn't resolve default property of object GC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
			If GC > 2 Then
				'UPGRADE_WARNING: Couldn't resolve default property of object GC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				'UPGRADE_WARNING: Couldn't resolve default property of object GC2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				GC2 = InStr(GC, a, "},")
				'UPGRADE_WARNING: Couldn't resolve default property of object GC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				'UPGRADE_WARNING: Couldn't resolve default property of object GC2. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				'UPGRADE_WARNING: Couldn't resolve default property of object LC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				LC = GC2 - GC
				'UPGRADE_WARNING: Couldn't resolve default property of object LC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
				If LC > 20 And LC < 200 Then
					'UPGRADE_WARNING: Couldn't resolve default property of object LC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					'UPGRADE_WARNING: Couldn't resolve default property of object GC. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					a = Mid(a, GC + 4, LC - 6)
					'UPGRADE_WARNING: Couldn't resolve default property of object Comma. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					Comma = InStr(a, ",")
					'UPGRADE_WARNING: Couldn't resolve default property of object Comma. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
					If Comma Then
						'UPGRADE_WARNING: Couldn't resolve default property of object Comma. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
						Lat = VB.Left(a, Comma - 1) & New String(Chr(48), 12)
						Lat = VB.Left(Lat, 12)
						'UPGRADE_WARNING: Couldn't resolve default property of object Comma. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
						Lon = VB.Right(a, Len(a) - (Comma + 4)) & New String(Chr(48), 12)
						Lon = VB.Left(Lon, 12)
						If System.Math.Abs(Val(Lat)) > 0 And System.Math.Abs(Val(Lon)) > 0 Then
							Latitude(i).Text = Lat
							Longitude(i).Text = Lon
							NotFound = False
						End If
					End If
				End If
			End If
			System.Windows.Forms.Application.DoEvents()
		Next i
ReturnResult: 
		'UPGRADE_ISSUE: Constant Default was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'
		'UPGRADE_ISSUE: Screen property Screen.MousePointer does not support custom mousepointers. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"'
		'UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
        System.Windows.Forms.Cursor.Current = Cursors.Default
		If NotFound Then
			MsgBox("NO MAP COORDINATES HAVE BEEN FOUND!", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Exclamation, "ADDRESS???")
			Beep()
		Else ' Watch for my next upgrade - ok? (Dinner's waiting)
			'============================================================================
			'Why not put some MORE FUN into this and calculate the distance between them?
			'============================================================================
		End If
		AskGoogleButton.Enabled = True
		Exit Sub
BolloxedData: 
		NotFound = True
		Resume ReturnResult
	End Sub
	Function MissingData() As Boolean
		Dim i As Object
		For i = 1 To 2
			If Trim(State(i).Text) = "" Or Trim(Zip(i).Text) = "" Then
				MissingData = True
				Exit For
			End If
		Next i
	End Function

    Private Sub GEOStuffForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class