GetFirstFrame

Function GetFirstFrame(Caption)
  i=0
  do
    i=i+1
  loop until i > FrameCount or lCase(GetCaption(GetFrameByIndex(i)))=lCase(Caption)
  if i > FrameCount Then i = 0
  GetFirstFrame=GetFrameByIndex(i)  
End Function