E ai, resolveu??Guima escreveu:... Veja como ficou toda a rotina após adaptá-la...
Para um direcionamento, este procedimento lista os dados do controle LISTA:
Código: Selecionar todos
Dim y As Integer
For y = 1 To LISTA.ListItems.Count
MsgBox "Código: " & LISTA.ListItems(y).Text & Chr(13) & _
"Produto: " & LISTA.ListItems(y).ListSubItems(1).Text & Chr(13) & "Quantidade: " & _
LISTA.ListItems(y).ListSubItems(2).Text & Chr(13) & "Valor: " & _
LISTA.ListItems(y).ListSubItems(3).Text & Chr(13) & "Total: " & _
LISTA.ListItems(y).ListSubItems(4).Text
Next