The following example changes the width of several fields in the Invoice Entry window:
Private Sub Window_BeforeOpen(OpenVisible As Boolean) TradeDiscount.Width = 140 Freight.Width = 140 Miscellaneous.Width = 140 Tax.Width = 140 Total.Width = 140 End Sub