Private Sub Command1_Click()
If Text1.Text = "用户" Then
Text2.SetFocus
ElseIf Text1.Text <> "用户" Then
MsgBox "请输入正确用户名！"
End If
If Text2.Text = "abcde" Then
Unload Me
万能工具.Show
ElseIf Text2.Text <> "abcde" Then
MsgBox "请输入正确密码！"
End If
End Sub
Private Sub Command2_Click()
Dialog2.Show
End Sub
Private Sub Text1_keydown(keycode As Integer, shift As Integer)
If Text1.Text = "用户" And KeycCode = vbKeyReturn Then
txt2.SetFocus
ElseIf Text1.Text <> "用户" And keycode = vbkeyruturn Then
MsgBox "请输入正确用户名！", vbOKOnly + vbInformation
End If
End Sub
Private Sub Text2_keydown(keycode As Integer, shift As Integer)
If Text2.Text = "abcde" And keycod = vbKeyReturn Then
Unload Me
万能工具.Show
ElseIf Text2.Text <> "abcde" And keycode = vbKeyReturn Then
MsgBox "请输入正确密码！", vbOKOnly + vbInformation
End If
End Sub



我希望在这个代码窗口新建一个修改用户名密码的控件，希望高手帮我详细解答，万分感谢！！！！！

Unload Me
万能工具.Show

这个程序里，这二行写反了。在 unload me 后面不能再出现可执行命令，可以出现  end if \end sub  之类的指示性命令。

----------------------
你这个程序段里完成用户名和密码核对，但因密码是在程序里指定的，所以无法实现修改用户密码的功能。
需要修改密码，那么用户名和密码必须单独保存到数据库或文件中。而你的程序没有做到一点。

实现的修改密码的流程：
判断两次新密码是否正确，
  判断用户名和密码是否正确，
     如果正确，那把新的密码保存起来。