Public Property Let Enabled(ByVal bNewValue As Boolean) bEnabled = bNewValue If bNewValue Then lblCaption.ForeColor = &H80000012 Else lblCaption.ForeColor = &H80000011 End If ' ===== start Joe code ======= Propertychanged "Enabled" ' Persist data - Make this the last item in the property ' ===== end Joe code ========= End PropertyHTH,
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams