Sub Button1_Click
ListView1.Clear
ListView1.AddTwoLines2("Item 1", "Description of Item 1", "My value is 1")
'My problem!!
'In this case when Listview1 only has 1 item, I want to move up the scrollview just below the bottom of list listview
' and to stretch and make the scrollview higher to cover the empty space just above button1
'Msgbox(ListView1.TwoLinesLayout.ItemHeight,"")
'ListView1.Height=160dip 'ListView1.TwoLinesLayout.ItemHeight
ListView1.Height = ListView1.Top + ListView1.TwoLinesLayout.ItemHeight +1dip
ScrollView1.Top = ListView1.Top + ListView1.Height + 2dip
ScrollView1.Height = Button1.Top - ScrollView1.Top
End Sub