Thank you Gunnar

It helped for the for command for sure.

Ali

>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