* JJ - 01/05/2009 - Account/Patient Issue 101 CASE nKeyCode = 9 x = 0 FOR EACH loControl IN THIS.Parent.Parent.CONTROLS IF PEMSTATUS( loControl, 'TabIndex', 5 ) FOR TabIndexLoop = 1 TO THIS.Parent.Parent.ControlCount IF loControl.TabIndex > THIS.Parent.TabIndex loControl.SetFocus ELSE ENDIF ENDFOR ENDIF ENDFOR NODEFAULT