Window List

[jonybd]

how to control child window in mdiform statusbar as like windows task bar ?

' i m trying
Private Sub mnuNew_Click(index As Integer)
Select Case index
Case 0 ' MSDN - WindowList Property Example
Dim nn As New explorer
nn.Caption = nn.Name & Forms.Count

Dim mm As Panel
Set mm = StatusBar1.Panels.Add()

mm.Text = nn.Caption
mm.Key = nn.Caption
mm.Bevel = sbrRaised
mm.AutoSize = sbrSpring
End Select
End Sub

Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
On Error Resume Next
If Panel.Key = ActiveForm.Caption Then
If ActiveForm.Visible = True Then
ActiveForm.Visible = False
Else
ActiveForm.Visible = True
End If
End If
End Sub

 

[jonybd]

any one know ? how to list mdiform child windows list
in a statusbar / coolbar/ toolbar , so that i can handle closeing/minimizeing/maximizeing them !!