Private Sub MessageBox_Click(ButtonText As String)
If ButtonText <> "OK" Then Return
'Clearing certain groups of child views in an xCustomListView
'but only those designated by the presence of a 'clearme' tag
Dim p As B4XView
Dim index As Int
For index = 0 To CustomListView1.Size -1
p = CustomListView1.GetPanel(index)
For Each View As B4XView In p.GetAllViewsRecursive
If View Is Label And View.Tag = "clearme" Then View.Text = ""
If View Is TextField And View.Tag = "clearme" Then View.Text = ""
If View Is TextView And View.Tag = "clearme" Then View.Text = ""
Next
Next
End Sub