Private Sub TxtMahang_Change()

If Len(TxtMahang.Text) >= 2 Then

SendKeys "{tab}"

End If

End Sub

*************************

Private Sub TxtMahang_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

SendKeys "{tab}"

KeyAscii = 0

End If

If Len(TxtMahang.Text) >= 2 Then

SendKeys "{tab}"

End If

End Sub

----------------------------------------------

Private Sub TxtTenhang_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

SendKeys "{tab}"

KeyAscii = 0

End If

End Sub