正确的源码
Private Sub Cmd_Click() '确定按钮鼠标单击事件代码
If txt1.Text = "user" Then '若用户名文本框输入正确
Txt2.SetFocus '密码文本框激活
Elself Txt1.Text <> "user" Then
Txt1.Setfocus
End If
简化后的代码
If Txt1.Text="user" then
Txt2.Setfocus
Else
Txt1.Setfocus
End If