Sub Process_Globals
Private DandDCtl As BBLabel
.
.
.
Sub AnotherSub()
A Loop
Dim P As B4XView = xui.CreatePanel("UnschOPs"), TE As BCTextEngine
P.LoadLayout("BBLabel") 'Contains ONE 'BBLabel' called 'UnschOPs'
UnschOPs.Text = "[Color=#ff0000][b][u]" & Crsr.GetString("Os_JobNum") & "[/u][/b][/Color]" & " / " & "[Color=#00ff00][b][u]" & Crsr.GetString("Os_ReleaseNum") & "[/u][/b][/Color]" & " Op " & "[Color=#0000ff][b][u]" & Crsr.GetString("Os_SeqNum") & "[/u][/b][/Color]"
DandD1.MakeDragSource(UnschOPs.mBase, "DandD1")
UnSchedOpsList.Add(P, P) 'UnSchedOpsList is a customlistview
.
'
'
End of Loop
End Sub
Sub UnSchedOpsList_ItemClick (Index As Int, Value As Object)
Dim P As B4XView = xui.CreatePanel("UnschOPs") ' OR' 'Dim P As B4XView tried both
P = Value 'this works
DandDCtl = P.GetView(0) 'this doesn't