Error al cerrar un programa

[sitiom]

Hola buenas.
He creado un programa y al cerrar el ejecutable me lanza el error de que el programa ha dejado de funcionar.
El depurado me dice que el error es el siguiente: Excepción no controlada en 0x7745fbae en Programa.exe: 0xC000008F: Floating-point inexact result.
Me he dado cuenta que este error surge desde que he insertado una barra de herramientas en el programa (Toolbar y Coolbar), y únicamente aparece cuando cierro el programa desde la X, si lo cierro desde archivo/salir o desde la barra de herramientas que he creado no aparece.
Muchas gracias. Un saludo

[culd]

Mira, en el evento Unload del form pone

Código vb:

On error resume next
 

Y fijate si te lo sigue haciendo...

Sino tenes que liberar el objeto de la barra de herramientas que decis que trae el problema.

[sitiom]

Hola, gracias por responder ;)
El error lo da al cerrar el programa con end, el unload no da problemas.
Pregunta tonta, ¿cómo libero la Toolbar? Si yo por ejemplo pongo, Set Toolbar=nothing me salta el error de que el objeto no admite esa propiedad.
Gracias, un saludo

[culd]

Iniciado por sitiom

Hola, gracias por responder ;)
El error lo da al cerrar el programa con end, el unload no da problemas.
Pregunta tonta, ¿cómo libero la Toolbar? Si yo por ejemplo pongo, Set Toolbar=nothing me salta el error de que el objeto no admite esa propiedad.
Gracias, un saludo

Si el error te salta cuando ejecutas END, entonces estas cerrando forzado, osea que hay algo que esta trabajando y tira error, no se si sera el toolbar o otra cosa, tendria que tener el proyecto como para darme cuenta.

[sitiom]

Lo extraño es que como dije, el si lo cierro desde el menú que he creado (Archivo/Salir) o desde la toolbar, no me da ese problema..
Gracias por tu tiempo ;)
PD: El codigo que tengo al cerrar desde la X es:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '-- Salir principal --'
Dim eleccion As String
eleccion = MsgBox(" ¿Realmente desea salir? ", vbYesNo + vbQuestion, _
"Aviso")
If (eleccion = vbYes) Then
End
Else
End If
End Sub
Lo raro es que antes funcionaba bien, y si quito el aviso también funciona bien.