VBA- adding custom properties to Label controls

[mahhdy]

Hi,

I need to assing some properties to my labels which are generated on runtime (on a Class Module). I am using their TAG and Controltiptext properties, I need some more proterties to set and control these labels during the runtime. I am not sure If i should use some property procedures. If soI don't have any experience on that. The properties I am looking now are these three: 1) bdg, 2) lstjob and 3) opnjobs. Can anybody help? I want to assign value to these properties on creation time (load) and afterward as their status changed. The user can drag and drop these labels among different project and tasks, so I need to keep track their dependencies!

regards,
M

 

[mahhdy]

Hello,

I figure that out. I added Get and Let properties to my class for eaqch of those properties.
here is my code.

Private opnjobs$, lstJob$, bdg&, loc$
' Property Definitions
Public Property Get openJobs() As String
    openJobs = opnjobs
End Property
Public Property Let openJobs(Value As String)
    opnjobs = Values
End Property
Public Property Get LastJob() As String
    LastJob = lstJob
End Property
Public Property Let LastJob(Value As String)
    lstJob = Value
End Property
Public Property Get Badge() As Long
    Badge = bdg
End Property
Public Property Let Badge(Value As Long)
    bdg = Value
End Property
Public Property Get Location() As String
    Location = loc
End Property
Public Property Let Location(Value As String)
    loc = Value
End Property

regards,
M