Adding a property to a user control in VB6 requires 4 subroutines to be filled, the Let/Set, Get and property Bags respectively.
Let and get have the variant as return type as an argument, which means any value can be accessed through the property.
Public Property Get Interval() As Variant
Interval = Timer1.Interval
Public Property Let Interval(ByVal vNewValue As Variant)
Timer1.Interval = vNewValue
Suppose you want to change how do you get the Font Dialog within the Property Window. This can be possible with use of stdfont in place of Variant as follows
Public Property Set Font(ByVal Nfont As StdFont)
Set lbl_Time.Font = Nfont
Public Property Get Font() As StdFont
Set Font = UserControl.lbl_Time.Font
The complete VB6 Stopwatch Project can be accessible in my GitHub repository