VB 界面中的TEXT在运行中怎样设置会消失？

用VB写一个登陆界面。

Private Sub cmdOK_Click() If Trim(cmbUserName。Text) = "" Then MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告！" cmbUserName。 SetFocus '将焦点转移到用户名组合框中 Exit Sub End If Dim txtSQL As String txtSQL = "select * from SystemUserTable where EmployeeNo='" ...全部

  Private Sub cmdOK_Click() If Trim(cmbUserName。Text) = "" Then MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告！" cmbUserName。
  SetFocus '将焦点转移到用户名组合框中 Exit Sub End If Dim txtSQL As String txtSQL = "select * from SystemUserTable where EmployeeNo='" & Trim(cmbUserName。
  Text) & "'" Adodc1。CommandType = adCmdText Adodc1。RecordSource = txtSQL Adodc1。Refresh If Adodc1。
  Recordset。EOF Then '如果记录为空则说明不存在此条记录，也说明用户名错误 MsgBox "没有该用户！" & Chr(13) & Chr(10) & "请重新输入！", vbOKOnly + vbExclamation, "提示" cmbUserName。
  SetFocus Exit Sub Else '存在此用户名，检查密码 If Trim(Adodc1。Recordset。
  Fields(1)) = Trim(txtPWD。Text) Then '密码正确 User = Trim(cmbUserName。Text) '保存登录的用户名 PWD = Trim(txtPWD。
  Text) '保存登录用户的密码 Dim Frm As New frmMain Frm。Show Me。Enabled = False '登陆窗口不可用 Else '密码错误 If n < 2 Then '输入错误次数不足3次 n = n + 1 '错误次数加1 MsgBox "口令不对，请重输！" & Chr(13) & Chr(10) & "您还有 " & Str(3 - n) & " 次机会！", vbOKOnly + vbExclamation, "提示" '提示错误 txtPWD。
  SetFocus txtPWD。
  Text = "" Exit Sub Else '输入错误次数达到3次，提示后退出系统 MsgBox "对不起，您无权使用本系统！", vbOKOnly + vbExclamation, "提示" Unload frmLogin Exit Sub End If End If End If End Sub。收起