For x=0 To 6
Dim SenderFilter As Object = mSQL.ExecQueryAsync("SQL", "SELECT * FROM names WHERE id=? ", Array As String("3"))
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
If Success Then
Do While rs.NextRow
BBVersions.Text= BBVersions.text & $"[Alignment=center][TextSize=14][b][color=0xff006688]${rs.getString("LNAME")}[/color][/b][/TextSize][/Alignment]
[Alignment=left][TextSize=14][b][color=0xff006688]"${rs.getstring("item")}[/color][/b][/TextSize][/Alignment]
${piv.lblText}
"$
Loop
End If
Next