public Cat_Forms[1], Len_CatForm Dimension Cat_Forms(50, 1) Len_CatForm = 0 FOR iX = 1 TO _SCREEN.FORMCOUNT IF [Cat] $ _SCREEN.FORMS[iX].NAME Len_CatForm = Len_CatForm +1 Cat_Forms[Len_CatForm, 1] = _SCREEN.FORMS[iX] ENDIF ENDFOR * Now, Cat_Forms Array will carry all opened form with [Cat] within their name! :)