Private Sub SetMap()
        Dim Uri As New Uri(String.Format(Me.MapUri, lat, lng))
        Dim request As Net.WebRequest = Net.WebRequest.Create(Uri)

        Try
            Using response As Net.WebResponse = request.GetResponse()
                Using stream As IO.Stream = response.GetResponseStream
                    Me.fMap.Image = Bitmap.FromStream(stream)
                End Using
            End Using
        Catch ex As Exception

        End Try
    End Sub