hi Ali

I am not a VB programmer but it seems to me that the following code should work. however, you must find out the definition for 'moMapLayer' and the object 'Map1' must exist

#define moMapLayer          && fill in the value for the definition of 'moMapLayer' here
#define moFillSymbol  2
#define moLineSymbol  1
#define moPointSymbol 0

l     = .NULL.
ftype = ""

* *** create the object 'Map1' here

FOR EACH l IN Map1.Layers
   IF l.LayerType = moMapLayer
      DO CASE
         CASE l.Symbol.SymbolType = moFillSymbol
            ftype = "polygon"
         CASE l.Symbol.SymbolType = moLineSymbol
            ftype = "line"
         CASE l.Symbol.SymbolType = moPointSymbol
            ftype = "point"
      ENDCASE
      MessageBox(l.NAME + " contains " + ftype + " features")
   ENDIF
ENDFOR

hope this helps.

>Hi Everybody,
>
>I have a question for you. How do you translate the following VB codes into VFP 6:
>
>Dim l As Object
> Dim ftype As String
> For Each l In Map1.Layers
> If l.LayerType = moMapLayer Then
> Select Case l.Symbol.SymbolType
> Case moFillSymbol '2
> ftype = "polygon"
> Case moLineSymbol '1
> ftype = "line"
> Case moPointSymbol '0
> ftype = "point"
> End Select
> MsgBox l.Name & " contains " & ftype & " features"
> End If
> Next l
>
>I am specially intrested in "For Each I In Map1.Layers"
>
>Thank you,
>Ali