[RESOLVED] Is the way i ending my program correct?

[NotepadGuru]

Hai

Private Sub close_Click()
Shell_NotifyIcon NIM_DELETE, t
 Dim MyForm As Form
 For Each MyForm In Forms
     If MyForm.Name <> "Form5" Then
        Unload MyForm
     End If
Next
End
End Sub

* form5 is the startup form.

but i see still the process is running after close_Click
?

[Tom Moran]

Try This:

For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i)
Next

Remove the End command

[dglienna]

You aren't closing Form5 properly when you call END. That's why it doesn't end without it. This is the way to fire it. It closes the last OPEN form last.

Option Explicit

Private Sub cmdExit_Click()
 Dim frm As Form
 For Each frm In Forms
   If frm.Name <> Me.Name Then ' Unload this form LAST
     Unload frm
     Set frm = Nothing
   End If
 Next
 Unload Me
End Sub

[NotepadGuru]

Thank you for both Tom and dglienna :hello:
for now ill go for dglienna's code,but toms one also alright

[NotepadGuru]

hahaha, its funny, cant rep either of you boys

[dglienna]

It won't work if you call it from another form.

That's why I check for the last open form, then save it for the end.

[NotepadGuru]

It won't work if you call it from another form.

That's why I check for the last open form, then save it for the end.

yah got it dglienna