如何设置，父窗体变化时子窗体大小及位置也符合要求

父窗体大小发生变化时，会产生 事件。在这个事件里，处理。

遍类所有的窗体，然后针对各个窗体进行单独处理。
Dim i As Long, j As Long
Dim fr As Form
i = Me.ScaleWidth
j = Me.ScaleHeight
On Error Resume Next
If Me.WindowState <> 1 Then
    For Each fr In Forms
        If fr.Name = "Form1" or  fr.Name = "Form2" Then
            fr.Move 0, 0, i, j
        elseif fr.name="Form3" then
            fr.move (i-fr.width)/2,(j-fr.height)/2 ,fr.width,fr.height              '居中，如果不是的话，你要自己计算位置
        End If
    Next
End If
DoEvents

----------
当有多个子窗体运行时，如何可获取运行的子窗体名称。如何能判断出某个子窗体是否已运行。
就用上面的代码改改吧。