Quando se fala em encerramento de um aplicativo VB 6.0 pensa-se imediatamente no uso do comando End. Mas este não é o procedimento mais adequado.
O End encerra a execução de forma abrupta, sem invocar os eventos Unload, QueryUnload ou Terminate, ou qualquer outro código.
O procedimento ideal para o encerramento de um programa VB é usar uma função que descarregue todos os formulário. Assim o sistema encerra e todos os eventos relacionados com o descarregamento dos formulários são executados.
Segue um exemplo de função:
Fonte: http://www.dreamincode.net/forums/showtopic33998.htm
O End encerra a execução de forma abrupta, sem invocar os eventos Unload, QueryUnload ou Terminate, ou qualquer outro código.
O procedimento ideal para o encerramento de um programa VB é usar uma função que descarregue todos os formulário. Assim o sistema encerra e todos os eventos relacionados com o descarregamento dos formulários são executados.
Segue um exemplo de função:
Public Sub DescarregarTodosFormularios()
Dim objForm As Form
For Each objForm In Forms
Unload objForm
Next
Set objForm = Nothing
End Sub
Fonte: http://www.dreamincode.net/forums/showtopic33998.htm