VB6 - ne zaključi proces programa - pomoč !!!

Mali program (tri fome) velike težave ! Upam, da že gdo ima "zdravilo" za moje težave.

Torej, naredil sem en simpl program (VB6) ki za svoje delo uporablja 3 forme. V Sub Main() za še nezaprtih form uporabljam
Sub Form_QueryUnload in Pomoc.Hide, Avtor.Hide....
Vse lepo in prav, po kliku na X-izhod iz programa se avtomatično zaprejo vse forme in izbriše okno glavnega programa.
Ko pa pogledam v task manager vidim, da program še vedno deluje (10 štartov programa? 10 aktivnih procesov v TM !!! ) ?!?!
V čem je problem, oziroma kak pravilno rešiti problem ?
Nujno prosim za pomoč !!!

BigWhale; Tenx za nasvet.

Za "ziher" sem vstavil;

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Pomoc
Set Pomoc = Nothing
Unload Avtor
Set Avtor = Nothing
Unload Test
Set Test = Nothing
Close
End Sub

Deluje !


Khm, usput imaš kakšne iskušnje z vstavljanjem progress bara v program ?

Npr v to proceduro bi vstavil progress bar za indikacijo dela;

Open odpri For Input As #1
Do
Input #1, vrstica
.
.
.
obdelava vrstic - samo branje in premetavanje matrik
.
.
Loop While Not EOF(1)
Close #1

Tenx za odgovor.

SunMoon, ja pravilno si ugotovil, rad bi uporoabil progress bar glede na premikanje po tekstovni datoteki . Seveda zmes je še eno par
izaračunov, premetavanja črk, ampak to bi zadostovalo.
Problem je edino ker v naprej ne vem velikost datotke. Obstaja funkcija za ugotovitev števila vrstic v datoteki (tekstovna) ali je pač
rešitev predhodno do-eof preštevanje ?

če delaš sz datotekami na splošno potem je to edina pot, če pa imaš svoje, specializirane datoteke, pa lahko število vrstic kar zapečeš notri, recimo v prvo vrstico. seveda ko v datoteko pišeš, moraš tudi to popraviti.
ampak ponavadi je while not eof kr najboljša varjanta...

Ge, vrstice poljubne datoteke lahko prešteješ tako, da najprej odpreš poljubno datoteko preko CommonDialog, program nato prebira vrstico za vrstico posebej, na ta način pa se število vrstic pri vsakem posameznem prebiranju vrstice poveča za +1. Ko program prebere vse vrstice, vrednost 'stevilovrstic' vsebuje število vseh vrstic v datoteki. Pri tem ni potrebno sprotno zapisovanje vrstic npr. v TextBox, dovolj je že tole:
-------------------------------------------------------------------------------
Private Sub LineCounter_Click()
Dim stevilovrstic As Integer

stevilovrstic = 0

On Error Resume Next

CD.ShowOpen

Open CD.FileName For Input As #1
Do While Not EOF(1)

Input #1, GetTextLine

stevilovrstic = stevilovrstic + 1

Loop
Close #1

End Sub
-------------------------------------------------------------------------------
(CD = CommonDialog)

Število vseh vrstic se torej nahaja v vrednosti 'stevilovrstic'.

Nato ponoviš postopek na podoben način.

END dela čist lepo in prav... Sej vbistvu VB potem sam uporabi to funkcijo ko ti uporabiš al pa kličeš Unload evente... Itak pa predn daš END, daš prej kak msgbox k te vpraša če čš končat s programom... Unload se takrat izvede k ti prtisneš na "X" v zgornjem desnem kotu... Če čš pa nardif recimo File->Exit Menu, bi moral klicat Form1_Unload, tko pa sam End in puff, konc... ni bolšga, sej v Deplhiju je pa Close če se ne motim...

BigWhale ti zgleda da tega stavka ne razumeš...

"None of your forms will get their QueryUnload, Unload, or Terminate events, and objects you've created will not get their Terminate events."

Če uporabiš End, se samo ti eventi ne bojo izvedl... kr pa ni nujno da jih potrebuješ in uporabiš...