Sub SetButtonText
'### Update button text when record changes ###
Dim x As Int = 0
Dim tmpSQL As String
Dim ls As List
ls.Initialize
tmpSQL = "Select * FROM RF_codes"
Dim rs As ResultSet = SQL1.ExecQuery(tmpSQL)
Do While rs.NextRow
ls.Add(rs.GetString("Device")) ' add Button text from table to list
Loop
For Each n As Node In Pane_selectButton.GetAllViewsRecursive
If n Is Button Then' set Button text from list
n.TEXT = ls.Get(x)' NO SUCH PROPERTY TEXT! Workaround ??
Log(n.Tag)
x=x+1
End If
Next
End Sub