طريقة لجعل برنامج يبحث عن تحديثات للبرنامج

 CheckForUpdates()
    End Sub
    Public Sub CheckForUpdates()
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/s/nxyb9d8haba8qyl/Ver.txt?token_hash=AAFRr1GFZcfKu_oST37bQyK76JxWMEQ_0m57ORBCghZlFw&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
            MessageBox.Show("لاتوجد تحديثات للبرنامج, هذا أحدث إصدار", "Update", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            If MessageBox.Show("تتوفر نسخة جديدة للبرنامج, هل تريد تنزيلها", "Update", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
                Process.Start("https://www.dev-point.com/vb") ' طبعاهنا رابط المباشر للبرنامج
            Else

            End If
        End If