只要在你的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
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