Android Question Listview problem

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