Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabbedMdi
Private Sub miShowAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles miShowAll.Click
If Not Me.ultraTabbedMdiManager1.HasHiddenTabs Then
Return
End If
Dim tabs() As MdiTab = CType(Me.ultraTabbedMdiManager1.HiddenTabs.All, MdiTab())
Me.ultraTabbedMdiManager1.BeginUpdate()
Dim tab As MdiTab
For Each tab In tabs
tab.Form.Show()
Next
Me.ultraTabbedMdiManager1.EndUpdate()
End Sub