Dim pollingDuplexBinding As New PollingDuplexHttpBinding()
Dim bindingEC As BindingElementCollection = pollingDuplexBinding.CreateBindingElements()
'Check on binding elements contained in the collection
Dim boolHTBE As Boolean = bindingEC.Contains(GetType(HttpTransportBindingElement))
'Returns true
Dim txtboolHTBE As String = boolHTBE.ToString()
Dim boolHSTBE As Boolean = bindingEC.Contains(GetType(HttpsTransportBindingElement))
'Returns false
Dim txtboolHSTBE As String = boolHSTBE.ToString()