MapX dual tagging

Dim lyr as Layer
Private sub commandementclick ()
Dim ds as mapxlib. Dataset
Set DS = map1.datasets. Item (1)
Lyr. labelproperties. Overlap = true
Lyr. labelproperties. Position = mipositionbc
Lyr. labelproperties. offset = 5
Lyr. labelproperties. style. textfont. size = 10
Lyr. labelproperties. style. textfontcolor = RGB (255, 0, 0)
Lyr. autolabel = true
Set lyr. labelproperties. dataset = DS
Lyr. Visible = true
Set lyr. labelproperties. datafield = Ds. Fields ("f_value ")
'Map1. layers. Item (""). Visible = false
Msgbox lyr. Name

End sub

Private sub command2_click ()
Map1.currenttool = mizoomintool
End sub

private sub form_load ()
chdrive app. path
chdir app. path
map1.geoset = "map/All. GST "
dim Li as new mapxlib. layerinfo
Li. type = milayerinfotypetab
Li. addparameter "filespec", app. path & "\ map \ All \ data \ Observatory. tab "
Li. addparameter "visible", false
Li. addparameter "autocreatedataset", true
Li. addparameter "datasetname", "ll"
'msgbox map1.layers. count
set lyr = map1.layers. add (LI)
'msgbox map1.layers. count
end sub