Public Sub SetTabPageOnTabControl(ByVal TabName As String)

If IsFormAlreadyLoaded2("AuftragBearbeiten", Me, "TabPageBerechnen") = False _
  Then
 
            AuftragBearbeiten1 = New AuftragBearbeiten()
            AuftragBearbeiten1.MdiParent = Me
            AuftragBearbeiten1.Show()
            AuftragBearbeiten1.SetTabPageOnTabControl("TabPageBerechnen") '<-- 
            ' hier wird das Interface aufgerufen
 
End If

Public Function IsFormAlreadyLoaded2(ByVal FormToLoadName As String, ByVal _
  ParentName As Object, Optional ByVal TabName 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(TabName) Then
 
                    frmChild.... 'Interface = "SetTabPageOnTabControl"
 
                End If
            End If
        Next
 
        Return RueckgabeWert
End Function