Sub etvImageSlider_ComboChanged (Property As String, Value As Object)
Select Case Property
Case "tablename"
Dim sTable As String = Value
sTable = sTable.Replace("null","")
If sTable.length > 0 Then
Dim xl As List = modABMaterial.GetFieldNames(sTable)
etvImageSlider.SetPropertyList("ImageField", xl,False)
etvImageSlider.SetPropertyList("TitleField", xl,False)
etvImageSlider.SetPropertyList("SubTitleField", xl,False)
End If
End Select
End Sub