Private Sub ini_xclv
Dim tmplbl As Label
tmplbl.Initialize("")
Dim tmpmap As Map
tmpmap.Initialize
tmpmap.Put("DividerColor",0x00FFFFFF)
tmpmap.Put("DividerHeight",0)
tmpmap.Put("PressedColor",0x00FFFFFF)
tmpmap.Put("InsertAnimationDuration",0)
tmpmap.Put("ListOrientation",m_Orientation)
tmpmap.Put("ShowScrollBar",False)
xclv_main.Initialize(Me,"xclv_main")
xclv_main.DesignerCreateView(mBase,tmplbl,tmpmap)
End Sub