在子窗体体的form_load事件里判断窗体,再初始化
if me.?=? then
   me.width=?
   me.height=?
else
   ....
end if

解决方案 »

  1.   

    只要你不把子窗体的WindowState设为VbMaximized,或VbMinimized,则初始时子窗体的大小跟你设计时一样大。
      

  2.   

    只要在你的load子窗体的过程中设置子窗体的长和宽就行了
    Private Sub LoadNewDoc()
        Static lDocumentCount As Long
        Dim frmD As frmDocument
        lDocumentCount = lDocumentCount + 1
        Set frmD = New frmDocument
        frmD.Width = 100
        frmd.height=100
        frmD.Caption = "Document " & lDocumentCount
        frmD.Show
    End Sub