try If DecryptText(e.Form.Controls("zhucemaTextBox").Value,"abc","abc") = ComputerId Then SaveConfigValue("Register" & ComputerId, e.Form.Controls("zhucemaTextBox").Value) e.Form.Close() Else msgbox("注册码不正确") End If catch ex As exception msgbox("注册码不正确") End try