object type_obj
integer i
FOR i = 1 TO UpperBound(control[])
type_obj = control[i].ClassName().TypeOf()
CHOOSE CASE type_obj
CASE DataWindow!
MessageBox("The object"," Is a datawindow")
CASE Line!
MessageBox("The object"," Is a line")
... // Cases for additional object types
CASE ELSE
MessageBox("The object"," Is irrelevant!")
END CHOOSE
NEXT