Private Sub MDIForm_Load()
LoadNewDoc
End Sub
Private Sub MDIForm_Resize()
Form1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
Form1.Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub LoadNewDoc()
Static addform As Long
Dim frmD As Form2
addform = addform + 1
Set frmD = New Form2
frmD.Caption = "Document " & lDocumentCount
frmD.Show
End Sub
Private Sub new_Click()
LoadNewDoc
End Sub