Integrate G-MAP in VB.NET Windows Application without API

Introduction

WebBrowser ActiveX documents are embeddable OLE objects that behave more like ActiveX controls than traditional OLE objects. Unlike a traditional embedded object, an ActiveX document is not designed to be a contained object in a larger document. Instead, it is considered in itself a complete document that is merely being viewed (such as with Microsoft Internet Explorer) or collected in a single resource with other documents (such as a Microsoft Office Binder file). An ActiveX document that is hosted in the WebBrowser control is always active; therefore, unlike traditional OLE embedded objects, there is no sense of in-place activation.
For getting direction using source and destinations in Google map, we have to use following URL:

https://www.google.com/maps/dir/

• google map identifies space as + e.g. :acb xyz replace space with + e.g. :abc+xyz
• and next line with comma e.g. abc+xyz,czy.
• To make difference between source and destination, separate by ‘/’. Then use string builder to append the URL to web browser control. Each and every thing is explained in code. Code declaration of string builder and other things.

Dim queryaddress As New System.Text.StringBuilder 
Dim sStreet As String = String.Empty 
Dim sCity As String = String.Empty 
Dim sState As String = String.Empty 
Dim sPincode As String = String.Empty 
Dim sProvider_no As String = String.Empty 

queryaddress.Append("https://www.google.com/maps/dir/") 

Append source address to string builder

If txtprovider_no.Text <> ""
Then sProvider_no = txtprovider_no.Text.Replace(" ", "+") 
queryaddress.Append(sProvider_no + "," & "+")
End If
If txtState.Text <> ""
Then sState = txtState.Text.Replace(" ", "+") 
queryaddress.Append(sState + "," & "+")
End If
If txtCity.Text <> ""
Then sCity = txtCity.Text.Replace(" ", "+") 
queryaddress.Append(sCity + "," & "+")
End If

Append / for destination

queryaddress.Append("/")

Append destination address to string builder

sStreet = String.Empty
sCity = String.Empty
sState = String.Empty
sPincode = String.Empty

If ttxtclient_city.Text <> "" 
Then sPincode = ttxtclient_city.Text.Replace(" ", "+")
 queryaddress.Append(sPincode)
End If
If txtclient_state.Text <> "" 
Then sState = txtclient_state.Text.Replace(" ", "+") 
queryaddress.Append(sState + "," & "+")
End If

Last append URL to web browser control

WebBrowser.Navigate(queryaddress.ToString())