vb注册源码

代码如下。
＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
If Len(GetSetting(App.Title, "settings", "registed")) = 0 Then
Dim a As String
a = InputBox("还未注册，请输入注册码", , "000-000-0000")
If a = "123-456-7890" Then '这里放上你想要人家写的注册码
SaveSetting App.Title, "settings", "registed", "T": MsgBox "注册成功"
Else
MsgBox "注册码错误，注册失败"
End
End If
End If
'以下是你的程序代码了
End Sub