Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
Timer1.Interval = .ReadProperty("Scaninterval", 50)
Timer1.Enabled = .ReadProperty("Enable", True)
ScanM = .ReadProperty("ScanM", False)
End With
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
.WriteProperty "Scaninterval", Timer1.Interval, "50"
.WriteProperty "Enable", Timer1.Enabled, True
.WriteProperty "ScanM", ScanM, False
End With
End Sub