主题：限制软件的使用时间同，获得系统时间进行比较，例如到2015年8月10日软件失效，要再注册才能使用！

BeforeOpenProject事件

Dim url As String = "http://foxtable.sinaapp.com/time/"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
stm.Dispose()
Dim dt As Date = str
Dim ddd As Date = "2015-04-19"
If dt > ddd Then
    MessageBox.show("试用期已到")
    e.Cancel = True
End If

 弄一个地方存储试用期的日期，然后对比系统时间不就好了？

 你可以保存在表里，也可以保存在txt文件里，也可以保存在注册表里。