dim listControls as list
Dim oLBX As Picker
oLBX.Initialize("lbx" & i)
oLBX.Tag=sTestId
listControls.InsertAt(iPickerCounter,oLBX)
Sub cmdSave_Click
Dim oView As View
Dim i As Int
For i =0 To listControls.Size-1
oView=listControls.Get(i)
Msgbox(oView.Tag,"Save_Click")
Next
end sub