大侠们 小弟我写了一个注册机连接到程序上了 可是每次打开程序就要注册一次 如何样才能实现一次注册后就不用在注册了

大侠们 我写了一个注册机连接到程序上了 可是每次打开程序就要注册一次 怎么样才能实现一次注册后就不用在注册了？
大侠们 我写了一个注册机连接到程序上了 可是每次打开程序就要注册一次 怎么样才能实现一次注册后就不用在注册了？
能给点思路或者方法么？谢谢了！

[解决办法]
向一个文件写入一个标记，每次读这个文件，有这个标志就不注册，没有就注册并写入文件
[解决办法]
Public Function IsRegistered(ByVal KJname As String) As Boolean
on error resume next
Dim oCheckup As Object
Set oCheckup = CreateObject(KJname)
IsRegistered = (Err.Number = 0)
End Function
[解决办法]
互联网真是小啊........................