'resize the subform and title
On Error Resume Next
Me.subForm.Width = Me.Form.InsideWidth - (5.804 * 567) - 50
Me.subForm.Height = Me.Form.InsideHeight - (1.287 * 567)
Me.lblTitle.Width = Me.Form.InsideWidth - 50
Me.lineTop.Width = Me.Form.InsideWidth - 50
Me.lineSplit.Height = Me.Form.InsideHeight - (1.287 * 567)