VB 关闭其它窗口

1. Option Explicit
3. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
4. Dim f1 As Form
5. Select Case Button.Index
6. Case 1
7.     Set f1 = New Form1
8. '    Form1.Show
9. '    unloadother Form1.hWnd
10. Case 2
11.     Set f1 = New Form2
12. '    Form2.Show
13. '    unloadother Form2.hWnd
14. End Select
15. f1.Show
16. unloadother f1.hWnd
17. End Sub
19. Private Sub unloadother(ht As Long)
20. Dim f As Form
21. For Each f In Forms
22.     If f.hWnd <> ht And f.hWnd <> MDIForm1.hWnd Then Unload f
23. Next
24. End Sub