Programa Sluit niet

[eeyk]

Mijn Programma Wilt Niet Voledig Afsluiten
Het blijf Actief in TaakBeheer

ik heb all van alles geprobeerd maar het sluit Gewoon niet Voledig

En dit moet wel omdat Automatiche Update Nodig is en dan moet programa uit zijn anders Installert die de nieuwen Versie niet

dit heb ik nu voor afSluit button

Private Sub Command1_Click()
On Error GoTo erras
Dim vraag As String
 Dim RetVal
RetVal = Shell(App.Path + "\update.exe", 1)    ' Run Main update.
Unload viruant
Unload frmSplash
Unload saves
Unload safeins
Unload Aboutus
Unload optiona
Unload errlist
Unload errsend
Unload SCANVIR
Unload Me
erras:
If Err.Number = 0 Then
Else
errsend.Show , Me
MsgBox "Cant find :  " + App.Path + "\update.exe" + " Goto that path and search update.exe", vbInformation, "ERRPR"
End If
End Sub

 

[That Guy]

zet ergens dit neer: (na alle 'unloads' (LOL!!!)

[COLOR="Blue"]End[/COLOR]

maar t'is niet knap.

 

[eeyk]

ok End

het werkt bedankt