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