listbox question again

[mad_arab]

Hi again,

I have another problem with my listbox. I go through all the checkboxes to see if they are checked and that works fine. But now i want to get the text out of the row that im currently on. Somehow i only get the text in the last row for all the checked rows. Thats a bit strange because i know they have different descriptiontexts. Can someone help me with this?

[Mark Sreeves]

post yer code and we'll have a giggle er, I mean have a look at it!

[mad_arab]

For m_iListCount = 0 To m_iTotalCount
m_sProdMoment = lstProductmoment.Text
Debug.Print m_sProdMoment
If lstProductmoment.Selected(m_iListCount) = True Then
m_sXmlProdNod.addNode ("ProduktMoment" & m_iPrdmomCount)
m_sXmlProdNod.nodeValue("ProduktMoment" & m_iPrdmomCount) = m_sProdMoment
Debug.Print oXmlDocument.xml '=8=
m_iPrdmomCount = m_iPrdmomCount + 1
End If
Next m_iListCount
m_iListCount = 0

[Jop]

Should not be that hard to get the text of an item:

For m_iListCount = 0 To m_iTotalCount 
    m_sProdMoment = lstProductmoment.Text 
    Debug.Print m_sProdMoment 
    If lstProductmoment.Selected(m_iListCount) = True Then 
        m_sXmlProdNod.addNode ("ProduktMoment" & m_iPrdmomCount) 
        m_sXmlProdNod.nodeValue("ProduktMoment" & m_iPrdmomCount) = m_sProdMoment 
        Debug.Print oXmlDocument.xml '=8= 
        Debug.Print lstProductmoment.List(m_iListCount)
        m_iPrdmomCount = m_iPrdmomCount + 1 
    End If 
Next m_iListCount 
m_iListCount = 0

that's what you need?