回车就可以打开登录.
请在你最后要输入的文本框的ValueChanged事件内加入:
Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1") '这个按钮就是登录按钮的名字btn.PerformClick()