Sub CreateUpDownPage(fMap As Map) As Panel
Dim pager As StdViewPager
Dim p As Panel
user_to_name = fMap.Get("user_to_name")
user_to = fMap.Get("user_to")
p.Initialize("")
p.LoadLayout("votherdays")
p.Color = Colors.White
imgOtherUser.tag = "user" & user_to
lblOtherUser.Text = user_to_name
' add a pager to the listitem with 6 pages
pager.Initialize("Pager", 6, 100%x, 100%y)
p.AddView(pager.asview, 0dip, 70dip, 100%x, 510dip)
p.Tag = fMap
Return p
End Sub