求高手帮忙把以下VB语言转为VFP语言，谢谢！！！

地理信息系统MO+VB编，用程序加载图层，再给图层加颜色。 
--------------------------------------------------- 
Option Explicit 
Private Sub Form_Load() 
  Dim dc As New DataConnection 
  Dim layer As MapLayer 
  dc.Database = App.Path + "\..\" + "Mexico" 
  If Not dc.Connect Then 
    MsgBox "在指定的文件夹下没找到图层数据文件！" 
    End 
  End If 
  Set layer = New MapLayer 
  Set layer.GeoDataset = dc.FindGeoDataset("States") 
  layer.Symbol.Color = moYellow 
  Map1.Layers.Add layer 
  Set layer = New MapLayer 
  Set layer.GeoDataset = dc.FindGeoDataset("Rivers") 
  layer.Symbol.Color = moRed 
  layer.Symbol.Style = 1 
  Map1.Layers.Add layer 
   
  Map1.Refresh 
End Sub  
------------------------------------------- --------------------编程问答-------------------- 可能吗？ --------------------编程问答-------------------- VF说，他不会！ --------------------编程问答-------------------- 没遇到过这种情况. --------------------编程问答-------------------- 我也想知道，正在找這方面的資料~~~~~

补充：VB ,  资源