In the following example, the event procedure changes the height of a list box field in the Account Maintenance window so that it shows two items rather than four:
Private Sub Window_BeforeOpen() 'Change the list to display only two items IncludeinLookup.Height = 36 End Sub