Sub CreatePreferenceScreen
screen.Initialize("Settings", "")
'create two categories
Dim cat1, cat2 As PreferenceCategory
cat1.Initialize("Category 1")
cat1.AddCheckBox("check1", "Checkbox1", "This is Checkbox1", True)
cat1.AddCheckBox("check2", "Checkbox2", "This is Checkbox2", False)
cat1.AddEditText("edit1", "EditText1", "This is EditText1", "")
cat2.Initialize("Category 2")
cat2.AddList("list1", "List1", "This is List1", "", _
Array As String("Black", "Red", "Green", "Blue"))
'add the categories to the main screen
screen.AddPreferenceCategory(cat1)
screen.AddPreferenceCategory(cat2)
End Sub