CodeItBetter Programming Another VB Programming Blog

'System & API - How to create a trial version for our project?
'A programe for making trial version or Demo version of a software. This Demo 
'program can be used 100 times only.

'Make two text boxes in the from and name it as
'        text1 & text2
'text2 is hidden or its visibilty property is set to false

Private Sub Form_Load()
    text2.Text = GetSetting("trial", "time", "used", "")
    text1.Text = text2.Text + 1
    SaveSetting "trial", "time", "used", text1.Text
    If text1.Text > 100 Then
        MsgBox ("Trial Complete")
        End
    End If
End Sub