主题：这段注册的代码为何不成功?

可以用用Messagebox显示一下各个关键变量的值，大概就可以知道怎么回事的：

Dim a,b,c,d,Code As String
Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId
a = StrReverse(Val1)
b = Left(a,8)
c =b & "yw"
Dim Val2 As String = EncryptText(c,"abc","123") '加密
    e.Form.Controls("TextBox2").Value = Val2
d = DecryptText(Val2,"abc","123")
Code = Left(d,8)
messagebox.show(a & "|" &  b & "|" &  C & "|" &  Code)
If a=b AndAlso Code = c Then
    MessageBox.Show("注册码成功!", "提示")
    e.Form.Close()
Else
    MessageBox.Show("注册码不正确!", "提示")
End If

还有这一行也错了吧？

Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId

问题出在这里：
Dim Val1 As String = e.Form.Controls("TextBox1").Value = ComputerId

val1的值不是computerid
而是true