Private Sub Mainform_MdiChildActivate(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.MdiChildActivate
        With ContextMenuStrip1
            .Items.Clear()
            For x As Integer = 0 To (Me.MdiChildren.Length) - 1
                Dim ChildForm As Form = CType(Me.MdiChildren(x), Form)
                Dim chfName As String = ChildForm.Name
                .Items.Add(chfName)
            Next x
        End With
    End Sub

Salzburger