Sub SetFocus ( )

Gives the focus to the control.