本帖最后由 wenwen137 于 2010-08-20 12:06:53 编辑

解决方案 »

  1.   

        Dim frmT As Form
        
        For Each frmT In Forms
            If Me.Name <> frmT.Name Then
                Debug.Print frmT.Caption
            End If
        Next
      

  2.   

    不是不行,是你未看懂    Dim frmT As Form
        
        For Each frmT In Forms
            If Me.Name <> frmT.Name Then
                Debug.Print frmT.Caption
                frmT.move 20,20,me.ScaleWidth,me.ScaleHeight
            End If
        Next 
      

  3.   

    加载子窗体时让它的.WindowState = 2不必在父窗体内改变大小。