Dim li2 As List
li2.Initialize
Dim lis As String
For i = 50 To 100
lis = i
li2.Add(lis)
Next
cat4.AddList("ValueAlarmLevel", Main.ResourceStrings.Get("WARN_settings_cat4_3"), Main.ResourceStrings.Get("WARN_settings_cat4_4"), "100", "ValueAlarm", li2)