Logico... adesso "Form" non ha alcun riferimento...
Cambia la funzione IsOpened come segue (scusa ma uso VB.NET)
codice:
Private Function IsOpened(ByVal Nome As String) As Integer
For I As Integer = 0 To Me.MdiChildren.GetUpperBound(0)
If Me.MdiChildren(I).Name = Nome Then
Return I
End If
Next
Return -1
End Function
E il resto così:
codice:
Dim Result As Integer = IsOpened("Figlioccio")
If Result = -1 Then
NomeFiglio = New Form
NomeFiglio.MdiParent = Me
NomeFiglio.Name = "Figlioccio"
NomeFiglio.Show()
Else
Me.MdiChildren(Result).Focus()
End If