Object doesn't support this property or method
Code:Private Sub List1_Click() Dim SpanElement As MSHTML.HTMLSpanElement If SuppressEvents Then Exit Sub With List1 Set SpanElement = SpanElements.Item(.List(.ListIndex)) End With With SpanElement Text1.Text = .Id Text2.Text = .textContent End With End Sub




Reply With Quote
