using "up" ,"down" key to move the focus

[TheBao]

Add 2 textboxes to your form and copy the following code:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Text2.SetFocus
End If
End Sub


Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Text1.SetFocus
End If
End Sub

Hope this helps
TheBao