with _screen
 for lnI = 1 ti .formCount
  do case
    case .forms[lnI].name = this.name and .forms[lnI].visible
     * Found another form with same name and it is visible...
     * 
     .forms[lnI].show()

    case .forms[lnI].name = this.name and NOT .forms[lnI].visible
      * form exists but it's invisible so make it visible.
      *
      .forms[lnI].visible = .T.
      .forms[lnI].setfocus()
   endcase
  endfor
endwith

DO WHILE .T.
      ME.Work()
ENDDO