I have made a class module with 2 properties and they appear in the list box after the ".". I then added several more in the same fashion as the previous two but they do not show up as properties, only the first two that were made.
[code]
Implements clsEquipment
Public EquipmentType As String
Public EquipmentUsage As String
Public OperatingSchedule As String
Public Floor As String
Public Manufacturer As String
Public ModelNumber As String
Public Tonnage As String
Public YearManufactured As String
Public EfficiencyNew As String
Public Row As Long
Private Function clsEquipment_GetRow() As Long
clsEquipment_GetRow = Row
End Function
Private Function clsEquipment_SetRow(irow As Long)
Row = irow
End Function
Private Function clsEquipment_GetType() As String
clsEquipment_GetType = EquipmentType
End Function
Private Function clsEquipment_SetType(activecell As String)
EquipmentType = activecell
End Function
Private Function clsEquipment_GetUsage() As String
clsEquipment_GetUsage = EquipmentUsage
End Function
Private Function clsEquipment_SetUsage(activecell As String)
EquipmentUsage = activecell
End Function
Private Function clsEquipment_GetOperatingSchedule() As String
clsEquipment_GetOperatingSchedule = OperatingSchedule
End Function
Private Function clsEquipment_SetOperatingSchedule(activecell As String)
OperatingSchedule = activecell
End Function
Private Function clsEquipment_GetFloor() As String
clsEquipment_GetFloor = OperatingSchedule
End Function
Private Function clsEquipment_SetFloor(activecell As String)
clsEquipment_GetFloor = activecell
End Function
[code]
Bookmarks