回車鍵時按鈕獲得焦點

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
                          SendKeys "{Tab}"
            End If

End Sub