Konu: VFP ile Google Maps
VFP formu üzerinde google maps uygulamasi denemesi ,başka bir şey araştırırken boyle birsey yaptim 
harita uygulamalari için kullanabilecek arkadaşlar olabilir düşüncesi ile yayinlayayim dedim.
Visual Fox Pro
oForm = Createobject([vfp_gmaps])
oForm.Show(1)
&&*************************************************
&&-- Class: vfp_gmaps (d:\soykan\mysoftware\my_experiments\vfp_gmaps.vcx)
&&-- ParentClass: form
&&-- BaseClass: form
&&-- Time Stamp: 08/07/07 03:19:07 AM
&&
DEFINE CLASS vfp_gmaps AS form
Height = 367
Width = 628
DoCreate = .T.
AutoCenter = .T.
Caption = "VFP le Google Maps Örneği"
Name = "Form1"
ADD OBJECT text1 AS textbox WITH ;
Height = 25, ;
Left = 4, ;
Top = 9, ;
Width = 265, ;
Name = "Text1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 8, ;
Left = 270, ;
Height = 27, ;
Width = 84, ;
Caption = "Git", ;
Default = .T., ;
Name = "Command1"
ADD OBJECT OIE AS olecontrol WITH ;
Top = 40, ;
Left = 2, ;
Height = 325, ;
Width = 627, ;
Name = "OIE"
PROCEDURE command1.Click
Local lcPrefix,lcSearcString
lcPrefix=[http://maps.google.ca/maps?ie=UTF-8&oe=UTF-8&hl=en&tab=wl&q=]
lcSearcString = Alltrim(Thisform.text1.Value) &&[Tekirdag,Malkara]
If Empty(Thisform.text1.Value)
Messagebox([Bir Şey Girmedinizki...],16,[Hata])
Return
Endif
With Thisform.OIE
.Navigate(m.lcPrefix+m.lcSearcString)
Do While .ReadyState # 4 && Wait for ready state
Enddo
Endwith
ENDPROC
ENDDEFINE
&&
&&-- EndDefine: vfp_gmaps
&&*************************************************
Not : biraz acele bir ornek oldu Insert kontrol hatasi alirsaniz Activex kontrollerden MS Web browser kontrolu işaret edin calisacaktir. form haline dönştürürseniz zaten sorun yok ....