Public Class Form1
    ''********** Update dugme za dropbox ***********
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CheckForUpdates()
    End Sub

    Public Sub CheckForUpdates()
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/s/4iuxnu09y6ez933/Version.txt?dl=0")
        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 = Label2.Text
        If newestversion.Contains(currentversion) Then
            MsgBox("You are up to date!")
        Else
            MsgBox("There is a new update we, will download it now for you.")
            WebBrowser1.Navigate("https://dl.dropbox.com/s/oj3swcgkmudpc60/Just4Crack.exe?dl=0")
        End If
    End Sub

    '********** Info Update ***********
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("1. Add New Programs." & Environment.NewLine &
               "2. Add Mail for suggestions and bugs." & Environment.NewLine &
               "3. It will be a little late for the next update because I'm working on a new project." & Environment.NewLine &
               "4. Several blogs have been fixed." & Environment.NewLine &
               "5. Add Link for Download New Project." & Environment.NewLine &
               "6. Add 64/32 Bit-a")
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("https://discord.gg/Rr9qkE2")
    End Sub
    'Next Page---------------
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class