>Hi,
>
>I have following coding:
>
>

>DO case
>case myCondition
>Otherwise
>
>loObj    = Sys( 1270 )
>        
>        If Vartype( m.loObj ) # "O"
>            Return
>        Endif
>        
>        lcClass  = m.loObj.Class
>endcase
>

>Which errors on line lcClass = m.loOj.CLass with error 1426
>In Debugger vartype(m.loObje) = "O"
>
>Any idea what kind of mistake in this coding?
>
>Regards,
>
>Koen

It seems that the object it returns is an OLE object which does not expose the "Class" property.
Can you see in the debugger if you just type m.loObj what this object is (or m.loObj.Name)?

You might want to try:

DO case
        case myCondition
Otherwise

loObj    = Sys( 1270 )
        
        If TYPE( "m.loObj.Class" ) # "C"
            Return
        Endif
        
        TRY
                lcClass  = m.loObj.Class
        CATCH TO loError
                Messagebox(loError.Message)
                lcClass = NULL
        ENDTRY

endcase