Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button12.Click
        Dim VersionChecker As New System.Net.WebClient
        Dim ServerVersion As String = VersionChecker.DownloadString( _
          "http://meineurl") 
        Dim MeineVersion As String = Me.Label9.Text 
 
        If Not ServerVersion = MeineVersion Then
            MsgBox("Es ist ein neues Update verfügbar", MsgBoxStyle.Information) 
            Dim i As Integer = FreeFile()
            FileOpen(i, "C:\updater.exe", OpenMode.Binary)
            FilePut(i, My.Resources.updater)
            FileClose(i)
            Process.Start("C:\updater.exe")
 
        End If
    End Sub

  FileOpen(i, "C:\updater.exe", OpenMode.Binary)