Sub GetButton(sTag As String) As Button
Return GetView(sTag, lButtons)
End Sub
Sub GetView(sTag As String, lList As List) As View
Dim vCurrent As View
For j = 0 To lList.Size - 1
vCurrent = lList.Get(j)
If vCurrent.Tag = sTag Then
Return vCurrent
End If
Next
Return Null
End Sub