Interface IChildForm
    ReadOnly Property ChildToolstrip As ToolStrip
 
End Interface

Public Class Form2
    Implements IChildForm
    ReadOnly Property ChilsToolstrip As ToolStrip Implements _
      IChildForm.ChildToolstrip
        Get
            Return ToolStrip1
        End Get
    End Property
 
    Private Sub ToolStripButton1_Click(sender As System.Object, e As _
      System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub
End Class

Protected Overrides Sub OnMdiChildActivate(e As System.EventArgs)
        MyBase.OnMdiChildActivate(e)
        MergeToolstrip()
    End Sub

  Private Sub MergeToolstrip()
        ToolStripManager.RevertMerge(ToolStrip1)
        Dim ChildForm As IChildForm = TryCast(ActiveMdiChild, IChildForm)
        If ChildForm IsNot Nothing Then
            ToolStripManager.Merge(ChildForm.ChildToolstrip, ToolStrip1)
        End If
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus