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