Sub Activity_Create(FirstTime As Boolean)
Dim List1 As List
List1.Initialize
List1.Add("Tom")
List1.Add("Dick")
List1.Add("Harry")
Log("List1.Size = " & List1.Size)
Dim List2 As List = List1
Log("List2.Size = " & List2.Size)
List1.Clear
Log("AFTER List1.Clear then List2.Size = " & List2.Size)
End Sub