Listing B
Public Sub SetStartupOptions(propertyname As String, _
   propertyvalue As Variant)
 CurrentProject.Properties.Addpropertyname, _
     propertyvalue
 Application.RefreshTitleBar
End Sub