Sub ExecuteListView3(SQL As SQLCipher, Query As String, StringArgs() As String, Limit As Int, ListView1 As ListView, _
TwoLines As Boolean) As List
ListView1.Clear
Dim Table2 As List
Table2 = ExecuteMemoryTable(SQL, Query, StringArgs, Limit)
Dim Cols() As String
For i = 0 To Table2.Size - 1
Cols = Table2.Get(i)
If TwoLines Then
ListView1.AddTwoLines2(Cols(0), Cols(1), Cols)
Else
ListView1.AddSingleLine2(Cols(0), Cols)
End If
Next
Return Table2
End Sub