Public Sub CheckForUpdates()

        'https://www.dropbox.com/s/xxxxxxxxxxxx/version.txt?dl=0 'CHANGE ?dl=0 to ?dl=1
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/xxxxxxx/name.rar?dl=1")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion

        If newestversion.Contains(currentversion) Then
            Me.TopMost = True
            MsgBox("NickTai Chat Spam is up to date.")

        Else

            Me.TopMost = True
            MsgBox("There is a new update, it will begin to download.")

            'https://www.dropbox.com/s/xxxxxxxxxxxx/name.rar?dl=0 'CHANGE ?dl=0 to ?dl=1
            System.Diagnostics.Process.Start("https://www.dropbox.com/s/xxxxxxxxxxx/name.rar?dl=1")
        End If
    End Sub

    Private Sub Form1_loading(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CheckForUpdates()
        Label20.Hide()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub
End Class