Sub Activity_Create(FirstTime As Boolean)
Dim List1 As List
List1.Initialize
For i = 1 To 10
List1.Add("Item #" & i)
Next
Dim result As List
'no need to initialize it as it holds the list returned from InputMultiList
result = InputMultiList(List1, "Select your favorite items")
Dim s As String
s = "Favorite items:"
For i = 0 To result.Size - 1
s = s & CRLF & List1.Get(result.Get(i)) 'result holds the positions
Next
Msgbox(s, "")
End Sub