3.写DisplayWindows的代码:
Private Sub DisplayWindows(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim strFormName As String
strFormName = sender.tag
For Each from1 As Form In Me.MdiChildren
If from1.Name = strFormName Then
from1.Show()
Exit For
End If
Next
End Sub