SUB SetFocus ( )