'listviews do not have events & properties needed to recognize a swipe
'wrap listviews with touch listeners to handle swipes over listviews
Dim r1,r1b,r2,r3,r4 As Reflector
r1.Target = lv1
r1.SetOnTouchListener("Listview_Touch")
r1b.Target = lv1b
r1b.SetOnTouchListener("Listview_Touch")
r2.Target = clvs1
r2.SetOnTouchListener("Listview_Touch")
r3.Target = clvs2
r3.SetOnTouchListener("Listview_Touch")
r4.Target = lv4
r4.SetOnTouchListener("Listview_Touch")