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
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
Code:
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
