Vuelvo a preguntar mi problema, haber si alguien me hace caso

Hola tengo 2 forms llamados principal y afiliados, el problema es que cuando
le doy al boton cerrar del form afiliados me pregunta si quiero cerrar si le
doy si me sale del form afiliados y antes de cargar el principal me vuelve a
preguntar si quiero volver a cerrar, y es aqui donde encuentro el problema,
ya que al cerrar afiliados tiene que ir al principal tan solo preguntando al
salir del afiliados, os pongo el codigo para no volveros locos, aunque me
imagino que el problema es en el Closing del principal



'Forma de cerrar 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

Call frmPrincipal_Closing(Me, New
System.ComponentModel.CancelEventArgs)

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 = False

oAfiliados.ShowDialog()

End Sub



'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.Close()

End Sub



Private Function UsuarioQuiereSalir() As Boolean

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





Gracias