Private Sub Command1_Click()
If (Text1.Text = "") Or (Text2.Text = "") Then
MsgBox ("请输入注册码")
Else
a = Text1.Text
b = (a * 54678) + 12345678
If Text2.Text = b Then
MsgBox ("你真棒!")
crackme02.Visible = False
Form1.Visible = True
Else
MsgBox ("继续努力!")
End If
End If
End Sub
Private Sub Form_Load()
Form1.Visible = False
End Sub