Sub lv_Recreate(lv1 As ListView) As ListView
Dim lv2 As ListView
lv2.Initialize("")
lv2.Clear
For i = 0 To lv1.Size-1
' ...GetItem(i) must be here to point to next LV items - but I dont know how :(
lv2.AddTwoLinesAndBitmap(l. lv1.TwoLinesAndBitmap.Label.Text, lv1.TwoLinesAndBitmap.SecondLabel.Text, lv1.TwoLinesAndBitmap.ImageView.Bitmap)
Next
lv1.Clear
For i = 0 To lv2.Size-1
' ...GetItem(i) must be here to point to next LV items - but I dont know how :(
lv1.AddTwoLinesAndBitmap(lv2.TwoLinesAndBitmap.Label.Text, lv2.TwoLinesAndBitmap.SecondLabel.Text, lv2.TwoLinesAndBitmap.ImageView.Bitmap)
Next
End Sub