Prueba en el evento queryunload:
Código vb:
Ver originalPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then Cancel = 1
End Sub
Así solo se cierra si estás cerrando el sistema.
Para finalizar la aplicación puedes usar "End".
Saludos