SetFocus Procedure
Procedure Setfocus
Description
Moves the focus to the object.