Folgende Updatefunktion habe ich eingebaut (Hauptfunktionen sind in einer DLL):

Code:
Dim WithEvents downloader As New FileDownload()

    Private Sub update_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim site As New Xml.XmlDocument
        site.Load("http://DOMAIN.de/update.xml")
        Dim reader As Xml.XmlNodeReader = New Xml.XmlNodeReader(site)

        While reader.Read

            If reader.GetAttribute("version") = "0.9.1.0" Then
                downloader.startDownload("http://DOMAIN.de/installer.exe ", "%temp%\installer.exe")
            Else : MsgBox("Keine neuere Version verfügbar!")
                Me.Close()
            End If
        End While
    End Sub
End Class
Die Sub sucht in einer update.xml auf meinem Server nach dem Attribut "version". Ist die Version "0.9.1.0", sollte der installer heruntergeladen werden (nach Temp) und ausgeführt werden.

update.xml:
Code:
<update> 
 <programm version="0.9.1.0" />
</update>
Leider funktioniert das ganze nicht wie von mir gedacht, es poppt jedes mal nur die Messagebox auf.

Hat jemand Ideen?