Private Sub InsertAtImpl(Index As Int, Pnl As B4XView, ItemHeight As Int, Value As Object, InitialHeight As Int)
'create another panel to handle the click event
Dim p As B4XView = CreatePanel("Panel")
p.Color = Pnl.Color
Pnl.Color = xui.Color_Transparent
p.AddView(Pnl, 0, 0, sv.ScrollViewContentWidth, ItemHeight)
p.Tag = Index
Log("Initial Index Value: " & p.Tag)
' trying to get gestures on the panel
GD.SetOnGestureListener(p, "Gesture")