最近闲来无事，编一个小程序，请看一下代码：
Private Sub Command1_Click()
TxInput.Text = ""
TxInput.TabIndex = 0
End Sub

Private Sub CmdCancel_Click()
TxInput.Text = ""
TxInput.SetFocus
End Sub

Private Sub CmdOk_Click()
If TxInput.Text = "123456" Then MsgBox ("密码正确！") Else MsgBox ("密码错误，请重新输入。")
TxInput.Text = ""
TxInput.SetFocus
End Sub

Private Sub Form_Load()
TxInput.Text = ""
TxInput.TabIndex = 0
End Sub
一运行就会出现实时错误424，要求对象，请问大神怎么改，万分感谢！~

感谢解答，我马上查看一下

出现错误后，我点调试，代码中的
Private Sub Form_Load()
TxInput.Text = ""
TxInput.TabIndex = 0
End Sub
TxInput.Text = ""这一行代码呈现黄色，请问是不是这一行代码有错误，应该怎么改？

您好，感谢您的解答，我还是不太明白怎么改。

您好，具体怎样操作？还是不懂，麻烦加下QQ：371856173