Function FindLabel ( [TBBH] , [DLBM] , [QSDWMC] , [QSXZ],[SHAPE_Area] )
  Dim nFMLength
  Dim nFZLength
  Dim  nMcLength
  nFMLength = Len( [DLBM] )
  nFZLength = Len( [TBBH] )
  nFQLength = Len( [QSDWMC] )
  Dim strLeftSpace
  Dim strRightSpace
  Dim  strMCSpace
    strLeftSpace  = ""
    strRightSpace= ""  
    strAllSpace= ""
   If nFMLength > nFZLength Then
    For i=0 To  (nFMLength-nFZLength)/2
      strLeftSpace =strLeftSpace +chr(32)
      strRightSpace =strRightSpace + chr(32)
     Next
  End If
   For j= 1 To  4*nFQLength
        strAllSpace =strAllSpace + chr(32)
   Next
if  left([qsxz],1)="2"  then
    if  [SHAPE_Area]<=60000  then
        FindLabel = "<FNT name='黑体l' size='5'>"  & "<UND>" & strLeftSpace & [TBBH] &  "G" & strRightSpace   & "</UND>" &chr(13) &chr(10)& [DLBM] &chr(32)& "</FNT>" 
    else
   FindLabel =  "<FNT name='黑体l' size='11'>"  &"<sub>"& chr(32)& [QSDWMC]   &"</sub>"&"</FNT>" &"<FNT name='黑体l' size='8'>"  & "<SUP>" & "<UND>" & strLeftSpace & [TBBH] &  "G" & strRightSpace   & "</UND>" &chr(13) &chr(10) &"<FNT name='黑体l' size='8'>" & strAllSpace &"</FNT>" &[DLBM]  &chr(32)& "</SUP>"  & "</FNT>"
   end if

else 
    if [SHAPE_Area]<=60000  then
 FindLabel = "<FNT name='黑体l' size='5'>"  & "<UND>" & strLeftSpace & [TBBH] & strRightSpace   & "</UND>" &chr(13) &chr(10)& [DLBM]  & "</FNT>" 
    else
   FindLabel =  "<FNT name='黑体l' size='11'>"  &"<sub>"  &[QSDWMC]& chr(32)& "</sub>"&"</FNT>" & "<FNT name='黑体l' size='8'>"  &"<SUP>" & "<UND>" & strLeftSpace & [TBBH] & strRightSpace   & "</UND>" &chr(13) &chr(10)& "<FNT name='黑体l' size='8'>"& strAllSpace & "</FNT>" &[DLBM]   & "</SUP>"& "</FNT>" 

   end if
end if
End Function
