Lukning af program (igen)

hej put denne kode i et module og brug CloseAll til at unload alle forms i dit project.


Sub CloseAll()
    On Error Resume Next
    Dim intFrmNum As Integer
    intFrmNum = Forms.Count


    Do Until intFrmNum = 0
        Unload Forms(intFrmNum - 1)
        intFrmNum = intFrmNum - 1
    Loop
End Sub
   

mvh H C

Jeg tillader mig at indskyde, at ovennævnte også besvarer http://www.eksperten.dk/spm/339782. Tak!

jeg tror jeg har skrevet mit første spørgsmål lidt forkert.. Jeg har en slags serveraplication der køre på computeren der IKKE kan lukkes ned(undtagelse af joblisten). Jeg har lavet sådan at den starter hver gang man tænder computeren. Jeg har samtidig lavet et install og uninstall program men uninstall virker ikke da jeg skal lukke filen ned først.
Jeg har lavet en kode hvor jeg bruger overstående const til at lukke programmet via exenavn. Det virker på andre programmer men mit program er "stædigt." er der andre måder en at bruge SendMessage og så sende den const ?

Har inu ikke fundet en løsning. Skriv hvis i finder en og jeg åbner spg. igen ;)

Super nice...manglede lige sådan en...