Update Checker

[jokimoto]

Hye Guys,

Tutorial

Creadits :
Jokimoto (ME)

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim web As New Net.WebClient

        Dim v As String = web.DownloadString("url")
        Timer1.Stop()
        Me.Label1.Text = "Ver :: " + v
        Me.Label1.ForeColor = Color.DarkBlue
        If v = Application.ProductVersion = True Then

            Me.Label2.Text = "No Update Available !"
            Me.Label2.ForeColor = Color.Red

        Else
            Me.Label2.Text = "Please Update"
            Me.Label2.ForeColor = Color.Green
        End If

    End Sub