Sub gethistory(hivehst As String)
listview1.Initialize("ListView1")
listview1.ScrollingBackgroundColor = Colors.Gray
listview1.SingleLineLayout.Label.TextSize = 16
listview1.SingleLineLayout.Label.TextColor = Colors.Black
listview1.SingleLineLayout.Label.Gravity = Gravity.CENTER
listview1.SingleLineLayout.Label.Typeface =Typeface.DEFAULT_BOLD
listview1.FastScrollEnabled = False
Dim i As Int
Dim Cursor1 As Cursor
Label1.Text = Label1.Text & " History"
Cursor1 = sql1.ExecQuery("SELECT * FROM hivevisit where hivename = '" & hivehst & "' order by vdate")
If Cursor1.RowCount > 0 Then
Label1.Text = Label1.text & Cursor1.RowCount
Dim rowdetail(Cursor1.RowCount) As String
Dim quarantine(Cursor1.RowCount) As String
For i = 0 To (Cursor1.RowCount - 1 )
Cursor1.Position = i
listview1.AddSingleLine(Cursor1.GetString("visit_date") & i)
Next
Else
rowdetail(i) = "No previous History"
End If
Cursor1.Close
Panel4.Visible = True
Panel4.AddView(listview1,0, 0,100%x, 100%y)
end sub