Visual basic yeni surum cıkarmadan program guncelleme

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("Güncelleme Belirleme Paneli.txt")
        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("suanda her hangibir güncelleme bulunmamaktadır.")

        Else
            MessageBox.Show("programın yeni sürümü güncellenmiş.")
            End
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         Dim result As MsgBoxResult = MessageBox.Show("güncellemeyi yüklemeyi ve  kullanıcı sözleşmesini kabul ediyormusunuz", "sözleşme",  MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If result = MsgBoxResult.Yes Then

            MessageBox.Show("program yüklemeye başlayacaktır.")
             My.Computer.Network.DownloadFile("Program İnecek Adres",  My.Computer.FileSystem.SpecialDirectories.Desktop + " /Programın İsmi")
            MsgBox("program güncellendi")


        Else
            MessageBox.Show("güncellemeyi yüklemeyi ve kullanıcı sözleşmesini kabul etmeniz gerekir.")

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class