Private Sub UserControl_ReadProperties(PropBag As PropertyBag) nDateFormat = PropBag.ReadProperty("DateFormat", YMD_Format) 'YMD_Format is assigned to nDateFormat if reading is not successful End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("DateFormat", nDateFormat, YMD_Format) 'YMD_Format is written if nDateFormat is empty EndSubIn addition, move call to InitDateFormat into UserControl_InitProperties event.
Plamen Ivanov
MCSD .NET Early Achiever and MCAD .NET Charter Member (VB .NET/SQL Server 2000)
MCSD (VB 6.0/SQL Server 2000) br>
VB (.NET) - what other language do you need in the whole Universe?...