If small = False Then
small = True
CustomListView1.AsView.Top = (Button1.Top + Button1.Height)+20dip
CustomListView1.AsView.Height = Root.Height - ((Button1.Top + Button1.Height)+20dip)
Label1.Visible=False
Else
small = False
CustomListView1.AsView.Top = (Label1.Top + Label1.Height)+20dip
CustomListView1.AsView.Height = Root.Height - ((Label1.Top + Label1.Height)+20dip)
Label1.Visible=True
End If