e.cancel = True Select Case e.KeyCode Case keys.left e.Form.Controls("textbox2").Select Case keys.right e.Form.Controls("textbox5").Select Case keys.up e.Form.Controls("textbox1").Select Case keys.Down e.Form.Controls("textbox3").Select Case Else e.cancel = False End Select