Using patchfile As New System.IO.StreamReader("patchlog.txt")
            Label1.Text = patchfile.ReadLine()
        End Using
 
        'Updates prüfen
 
        wc.Credentials = New Net.NetworkCredential("******", "*****")
        If Label1.Text = wc.DownloadString( _
          "ftp://update.****.net/version.html") Then
 
 
            MsgBox("Have fun, you got the newest Patch!")
 
        Else
            'Update ausführen, falls verfügbar
 
            MsgBox("Wait a moment! Theres a new patch!")
            wc = New WebClient
 
            Try
                wc.DownloadFile(New Uri("ftp://update.******.net/patch1.txt"), _
                  Application.StartupPath & "\shader.zip")
            Catch ex As Exception
                wc.Credentials = New Net.NetworkCredential("******", "*******")
            End Try
 
            wc.DownloadFile(New Uri("********/patch1.txt"), _
              Application.StartupPath & "\shader.zip")
 
        End If