Examples: BeforeOpen event

The following event procedure for the Customer Maintenance window checks the IsLoaded property to ascertain whether the Reminders window is open. If it is, the procedure sets the opening position of the Customer Maintenance window so it appears to the right of the Reminders window:

Private Sub Window_BeforeOpen(OpenVisible As Boolean)
	If Reminders.IsLoaded = True Then
		'The Reminders window is open
		CustomerMaintenance.Left = Reminders.Left + 50
		CustomerMaintenance.Top = Reminders.Top + 50
	End If
End Sub

Documentation Feedback