Sub recuphotel(meshotels As String,listv As ListView)
Dim myarray() As String:myarray=Regex.Split("]",meshotels)
listv.Visible=True:listv.Clear
listv.TwolinesLayout.Label.TextSize = 15
listv.TwoLinesLayout.SecondLabel.TextSize=15
listv.TwolinesLayout.Label.TextColor =Colors.red
listv.TwolinesLayout.SecondLabel.TextColor =Colors.ARGB(255,0,133,158) '"#FF00859E"
listv.TwolinesLayout.Label.Typeface=Typeface.DEFAULT_BOLD
listv.TwolinesLayout.SecondLabel.Typeface=Typeface.DEFAULT_BOLD
listv.TwoLinesLayout.ItemHeight=80
listv.Left=0:'listv.Top=0
listv.Width=320:'listv.height=480
'listv.FastScrollEnabled = true
'listv.SingleLineLayout.Label.Gravity = Gravity.CENTER
Dim cd As ColorDrawable
cd.Initialize(Colors.White, 0dip)
listv.TwolinesLayout.Background=cd
Dim i As Int
For i=0 To myarray.Length-1
Dim myarraybis() As String:myarraybis=Regex.Split("\|",myarray(i))
listv.AddTwoLines(myarraybis(0) & ":",myarraybis(1))
Next
'listv.AddSingleLine("--------------------------------")
listv.AddTwoLines("--------------------------------","")
End Sub