Private Sub CommandDisplayMap_Click()
    If Not IsNull(Me.il) And Not IsNull(Me.ulke) Then
        Dim strURL As String
        Dim objBrowser As Object
        Dim Hrf(1) As Variant, SW As Long
        Hrf(0) = Array("ç", "ş", "ö", "ü", "ı", "ğ")
        Hrf(1) = Array("%C3%87", "%C5%9F", "%C3%B6", "%C3%BC", "%C4%B1", "%C4%9D")
        Set objBrowser = Me.WebBrowser0
        kuladres = "Eskişehir"  '**** Burasini konum adresi olarak degistirin *****
         strURL = Me.il & "/ " & Me.ulke
         For SW = 0 To 5
             strURL = Replace(strURL, Hrf(0)(SW), Hrf(1)(SW))
        Next SW
        strURL = "https://www.google.com.tr/maps/dir/place/?f=d&saddr=" & strURL & "&daddr=" & kuladres & "&hl=tr&ie=UTF8&z5om=1&pw=2"
             With objBrowser
                .Navigate2 strURL
                .Silent = True
                .Visible = True
                .Offline = True
                .RegisterAsBrowser = True
            End With
    Else
        MsgBox "Enaz SEHIR ve ÜLKE girmeniz gerekir.", , "Bilgilendirme"
    End If
    Me.WebBrowser0.Requery
Exit_CommandDisplayMap_Click:
    Exit Sub
Err_CommandDisplayMap_Click:
    MsgBox Err.Description
    Resume Exit_CommandDisplayMap_Click
End Sub