Sub SMBupdate_DownloadCompleted (uurl As String, RemoteFile As String, Success As Boolean)
If Success = True Then
ProgressDialogHide
'Msgbox("Update gefunden","Test")
ProgressDialogShow("Update gefunden ... Installation wird gestartet...")
'
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirInternal, "update.apk"))
i.SetType("application/vnd.android.package-archive")
StartActivity(i)
'
Else
ProgressDialogHide
Msgbox("Es wurde kein Update gefunden." & CRLF & _
"Diese Version ist noch aktuell","Updatesuche")
End If
End Sub