This example uses the Height property to set the height of the Invoice Entry window:
Private Sub Window_BeforeOpen 'Set the height to 500 pixels InvoiceEntry.Height = 500 End Sub