Visual Basic.NET - Problemas salir de form secundario al principal

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
Me.Close
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

'El problema esta aqui: cmdclose.click
'debes quitrlo de alli

'Afiliados

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click, cmdClose.Click
Me.Close()
End Sub

debe quedar asi:

Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click
Me.Close()
End Sub

Lo que pasa es que existe un cmdClose y un mnuClose, y para ahorrar espacio lo pingo en la misma linea

He probado tal y como me dices y sigue pasandome lo mismo