Visual Basic.NET - Problemas al salir

Hola a todos:

Tengo 2 forms uno llamado principal y otro afiliados. ademas del inicio que es meter una clave

Cuando entro desde principal a afiliados no me da ningun problema pero cuando desde afiliados salgo a principal me pregunta 2 veces si quiero salir una en la pantalla afiliados y otra al salir de afiliados y aparecer principal.

A que puede ser debido, os pongo los codigos

Codigo de principal

Salir de principal

Private Sub frmPrincipal_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = Not UsuarioQuiereSalir()
End Sub

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click
Me.ShowInTaskbar = False
Dim oprincipal As New frmPrincipal
oprincipal.ShowInTaskbar = True
End Sub

Private Function UsuarioQuiereSalir() As Boolean
Return MsgBox("¿Desea salir?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Salir") = DialogResult.Yes
End Function

Llamada a Afiliados desde principal

Private Sub cmdAfiliados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAfiliados.Click, cmdAfiliados.Click
Dim oAfiliados As New frmAfiliados
Me.ShowInTaskbar = FalseoAfiliados.ShowDialog()
oAfiliados.ShowInTaskbar = True
End Sub

Codigo de afiliados

Salida de afiliados

Private Sub frmAfiliados_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = Not UsuarioQuiereSalir()
End Sub

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click, cmdClose.Click
Me.ShowInTaskbar = False
Dim oPrincipal As New frmPrincipal
oPrincipal.ShowDialog()
oPrincipal.ShowInTaskbar = True
End Sub

Private Function UsuarioQuiereSalir() As Boolean
Return MsgBox("¿Desea salir?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Salir") = DialogResult.Yes
End Function

Gracias y Feliz 2006