请帮帮忙！

dim p as new mapobjects2.point
dim recs as mapobjects2.recordset
set p=map1.tomappoint(x,y)
set recs=map1.layers.item(0).searchshape(p,mopointinpolygon,"")
sbstatusbar.panels.item("info").text=recs.fields("shape").value.area

上面这段语句是写在map1_mousedown函数内的，主要是想当鼠标点击某处时，在状态栏里显示该图元的面积，现在我不知道显示出来的图元面积的单位是什么，及如何设定面积单位。map1.layers.item(0).coordnatesystem.isprojected=false 图层是经纬度坐标的。