Sub setActionButtons(s As String)
s = SDUIShared.CStr(s)
s = s.Trim
If s = "" Then Return
s = s.replace("|", ";")
Dim litems As List = SDUIShared.StrParse(";", s)
litems = SDUIShared.ListTrimItems(litems)
For Each item As String In litems
Dim sid As String = SDUIShared.MvField(item, 1, ":")
Dim scaption As String = SDUIShared.MvField(item, 2, ":")
Dim scolor As String = SDUIShared.MvField(item, 3, ":")
If sid <> "" And scaption <> "" And scolor <> "" Then AddActionButton(sid, scaption, scolor)
Next
End Sub