Sub Button2_Click
p.Title = "dc342"
p.Theme = p.THEME_DARK
Dim sf As Object = p.ShowDialog(Data(1), "OK", "CANCEL")
SetTwoLabelsItemState(p, "Birthday", False)
Wait For (sf) Complete (Result As Int)
End Sub
Private Sub SetTwoLabelsItemState (Pref As PreferencesDialog, Key As String, Enabled As Boolean)
For i = 0 To Pref.CustomListView1.Size - 1
Dim pi As B4XPrefItem = Pref.CustomListView1.GetValue(i)
If pi.Key = Key Then
Pref.CustomListView1.GetPanel(i).GetView(0).Enabled = Enabled
Pref.CustomListView1.GetPanel(i).GetView(1).Enabled = Enabled
End If
Next
End Sub