Se cierran los formularios en cascada solos

Tengo una pequeña aplicación con varios formularios que
se muestran en cascada, es decir:

1.- Formulario Principal (Que se llama desde un Sub Main
del Modulo principal)

Sub Main
Dim FrmMante As New Mantenimiento
FrmMante.ShowDialog()
End Sub

2.- Un Formulario con las una lista de objetos que se
llama desde el formulario Principal

Sub MenuMaquinas_Click(...) Handles MnuMaquinas.Click
'Llama al Formulario de listas
Dim FrmListas As New Listas
FrmListas.DatosSel = 1
FrmListas.ShowDialog()

End Sub

3.- Otro Formulario denominado Maquina, que se llama
desde la Lista de Objetos

'Añade un nuevo Registro
If TipoList = Principal.NombreTabla.Maquinas Then
'Llama al Formulario de Maquinas
Dim FrmMaquinas As New Maquina
FrmMaquinas.NewMaq = True
FrmMaquinas.ShowDialog()
End If

4.- y el ultimo Formulario que se llama desde el anterior
("Maquinas")

Private Sub BtnAdd_Click() Handles BtnAdd.Click
'Guarda los Cambios si es una Maquina Nueva
GuardaMaquina()
'Llama al Formulario de Tareas
Dim FrmTarea As New Tareas
FrmTarea.ShowDialog()

End Sub

Todo parece correcto y quiero que todos los formularios
sean como cuadros de diálogos para que no se pueda
interactuar con otro muentras exista alguno
posteriormente abierto.
Bueno lo curioso es que cuando cierro el último
formulario mostrado, se me cierran todos los anteriores
excepto el primero, osea el formulario principal, es
decir si se abren en el orden 1,2,3,4, cuando digo que
cierre el formulario 4 hace lo siguiente, se cierra el 4,
3, 2, 1 y luego se abre el 1 ¿?, o por lo menos esa
sensación dá en la pantalla.

así cierro el formulario 4

Private Sub BtnSalir_Click() Handles BtnSalir.Click
'Al Carajo
Me.Dispose()
End Sub

He intentado buscar el motivo pero sin éxito, pero me he
dado cuenta que en los formularios he copiado unos
botones de unos a otros que son iguales, y desde ese
momento me ha empezado a funcionar mal.


Si alguien se le ocurre algo lo agradeceria me ayudase.

Gracias.