ho provato cosi:

codice:
        If FormNuovaSpesa.CustomerForm Is Nothing Then
            Dim frmNuovaSpesaChild As New frmNuovaSpesa()
            frmNuovaSpesaChild.MdiParent = Me.MdiParent             
            frmNuovaSpesaChild.Show()
            FormNuovaSpesa.CustomerForm = frmNuovaSpesaChild
            FormNuovaSpesa.CustomerForm.int_idStabile = CInt(txtId_stabile.Text)
            Call recuperoIdSocieta()
        Else
            FormNuovaSpesa.CustomerForm.Show()
            FormNuovaSpesa.CustomerForm.int_idStabile = CInt(txtId_stabile.Text)
            Call recuperoIdSocieta()
        End If
MdiContainer -> Child -> Child
frmMenu -> frmSpesa - > frmNuovaSpesa
Ma non funge perchè sembra non essere child di frmMenu