Hi,
I have VB Express and I need to make my sofware expire on a certain date. I do not want it like a trial period, I want every edition of the software to expire at the same time (15/02/12). I also do not want the software to be tricked if the system clock is put back so it needs to store the date the software is first launched and calculate the diference so it knows the true date. When the software has expired I need a message box to open, with a yes and no button. If the user clicks the yes button an IE window opens to my channel on youtube and if they click no the program exits. I have tried everything but I can't work it out.


Here is my code:
Code:
Public Class home

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        about.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        signup.Show()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If ProgressBar1.Value = 0 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        Else
            ProgressBar1.Value = ProgressBar1.Value

        End If
        If CheckBox1.Checked Then
            CheckBox2.Enabled = True
            Button2.Enabled = True
            Button1.Enabled = False
        Else
            CheckBox2.Enabled = False
            Button2.Enabled = False
            Button1.Enabled = True
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If ProgressBar1.Value = 1 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        Else
            ProgressBar1.Value = ProgressBar1.Value

        End If
        If CheckBox2.Checked Then
            TextBox1.Enabled = True
            Button3.Enabled = True
            Button2.Enabled = False
            Button1.Enabled = False
        Else
            TextBox1.Enabled = False
            Button3.Enabled = False
            Button2.Enabled = True
            Button1.Enabled = False
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        finishoffer.Show()
    End Sub
    Dim timercount As Integer = 60 'The number of seconds
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ProgressBar1.Value = 2 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        Else
            ProgressBar1.Value = ProgressBar1.Value

        End If
        If TextBox1.Text = 0 Then
            MsgBox("You must enter a number of referals above '0'", MsgBoxStyle.Information, "Error")
        Else
            Button5.Enabled = True
            Timer1.Enabled = True
            Timer1.Interval = 1000
            Timer1.Start()
            ProgressBar2.Value = 0
            ProgressBar2.Minimum = 0
            ProgressBar2.Maximum = TextBox1.Text
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar2.Value += 1
        ProgressBar2.Refresh()
        If ProgressBar2.Value = TextBox1.Text Then
            Timer1.Enabled = False
            MsgBox("All referals have been generated and sucessfully added to your account. Please allow 48 hours for them to appear", MsgBoxStyle.Information, "Referals Generated")
        End If
    End Sub

    Private Sub home_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button5.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Timer1.Stop()
        Button1.Enabled = True
        CheckBox1.Checked = False
        CheckBox1.Enabled = True
        Button3.Enabled = False
        CheckBox2.Checked = False
        CheckBox2.Enabled = False
        Button5.Enabled = False
        TextBox1.Text = 0
        TextBox1.Enabled = False
        ProgressBar1.Value = 0
        ProgressBar2.Value = 0
        Button2.Enabled = False
    End Sub
End Class
(Please ignore the awfull coding practices ;D ) Could whoever helps me put comments in any code as im not great at vb. Thanks