In case anyone wants a ToolStripDropDownButton instead of a windowslist in a sidepanel or on a menu you can use this approach.
On the toolstrip i have a button called tsbVinduer so my code on the main form is
Private Sub tsbVinduer_DropDownOpening(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsbVinduer.DropDownOpening
tsbVinduer.DropDownItems.Clear()
For Each f As Form In Me.MdiChildren
Dim item As ToolStripMenuItem = New ToolStripMenuItem(f.Text)
item.Tag = f
AddHandler item.Click, AddressOf item_Click
tsbVinduer.DropDownItems.Add(item)
Next
End Sub
Private Sub item_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim item As ToolStripItem = TryCast(sender, ToolStripItem)
If item IsNot Nothing Then
Dim f As Form = TryCast(item.Tag, Form)
If f IsNot Nothing Then
f.Activate()
End If
End If
End Sub
It gives me this result:
/Teddy