In the following example, the event procedure changes the caption for the Customer ID field to “Patient ID”, then changes the window’s caption:
Private Sub Window_BeforeOpen() 'Set the field caption CustomerID.Caption = "Patient ID" 'Set the window caption CustomerMaintenance.Caption = "Patient Maintenance" End Sub