VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ItemCachedProject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public category_ As TProjectCategory
Public name_ As String
Public manager_ As String
Public isActive_ As Boolean

Public Function Init(iCat As TProjectCategory, sProject$, sManager$, bIsActive As Boolean)
  category_ = iCat
  name_ = sProject
  manager_ = sManager
  isActive_ = bIsActive
End Function
  
Public Function Clone() As ItemCachedProject
  Set Clone = New ItemCachedProject
  With Clone
    .category_ = category_
    .name_ = name_
    .manager_ = manager_
    .isActive_ = isActive_
  End With
End Function