[VB6] MAPI: inserire più allegati

[Pinco Pallino 2]

Ciao!
Come faccio a inserire + allegati in una mail tramite il controllo mapi?

Io ho inserito tutti i file da allegare in una LIstBox e ho usato questo codice:

Lista.Listindec=0
Do Until Lista.ListIndex = Lista.ListCount - 1

MAPIMessages1.AttachmentPathName = Lista.Text
Lista.ListIndex = Lista.ListIndex + 1

Loop

Solo che nel MapiMessages1.attachmentPathName ogni volta che ripasso in Loop invece che aggiungermi l'allegato me lo sostituisce col nuovo! QUindi ne ottengo sempre e solo 1 nella mail!

Come fare?