Public Function IsFormAlreadyLoaded(ByVal FormToLoadName As String, ByVal _
  ParentName As Object, Optional ByVal ItemName As String = Nothing, Optional _
  ByVal SubItemName As String = Nothing) As Boolean
 
        Dim RueckgabeWert As Boolean = False
 
        For Each frmChild As Form In ParentName.MdiChildren
            If frmChild.Name = FormToLoadName Then 'Form ist schon offen
                frmChild.Activate()     'aktiviere Fenster
                frmChild.BringToFront()     'hole Fenster an vorderste Stelle
                RueckgabeWert = True
 
                If Not IsNothing(ItemName) And Not IsNothing(SubItemName) Then
                    For Each panel As Control In frmChild.Controls()
                        If panel.Name = ItemName Then
                            For Each SubControl As Control In panel.Controls()
                                If SubControl.Name = SubItemName Then
                                   SubControl.Select() ' <----- so gehts leider 
                                   ' nicht
                                   Return RueckgabeWert
                                End If
                            Next
                        End If
                    Next
                End If
            End If
        Next

Panel.Item(SubControl).Select