關閉所有開左既MDI Child

 

關閉所有開左既MDI Child

Public Sub MDI_Child_AllClose()       Dim MdiChildForms() As Form = Me.MdiChildren       Dim x As Integer         For x = 0 To MdiChildForms.Length – 1 Step 1          MdiChildForms(x).Dispose()       Next    End Sub