New Post: Problems to add shapefile in a map

This Source failedin order to add layers in a map.

Private Sub Command1_Click()
Dim sf As MapWinGIS.Shapefile
sf.Open("C:\Cities\Cities.shp", Null)
Map1.AddLayer(sf, True)

End Sub

I am working with VB6