kill application (process) in Vb6

[mutley]

Hi

Always when close my application and after open again the application in task manager I tried code below, but no worked

Private Sub Form_Unload(Cancel As Integer)
    Dim objCtrl As Control
    Dim objForm As Form


    For Each objForm In Forms
        If objForm.hwnd <> Me.hwnd Then
            Unload objForm
            Set objForm = Nothing
        End If
    Next objForm
    Unload Me

    Exit Sub


End Sub

When open app show me