LOCAL i, lcWindName, llRetVal  
    
  llRetVal = .T.  
  i = 0  
  lcWindName = WCHILD("",0) && The "" must be a NULL or empty string  
    
  DO WHILE !EMPTY(lcWindName)  
  IF lcWindName = UPPER(this.name)  
  i = i + 1  
  IF i > 1  
  llRetVal = .F.  
  EXIT  
  ENDIF  
  ENDIF  
  lcWindName = WCHILD("",1) && The "" must be a NULL or empty string  
  ENDDO  
    
  RETURN llRetVal