Kan någon tala om för mig varför nedanstående kod ger ett mismatch error.När jag kör projektet som ett eget projekt så fungerar det,men när jag lägger in det i ett annat projekt så fungerar det inte. Detvärsta är att jag inte hittar någon lösning.Det verkar som han inte tar class-modulerna som han ska.
Han ger error på set-raden.

Private Sub ListMessages()

Dim oMes As CMessage
Dim lvItem As ListItem

For Each oMes In m_colMessages
Set lvItem = lvMessages.ListItems.Add
lvItem.Key = oMes.MessageID
lvItem.Text = oMes.From
lvItem.SubItems(1) = oMes.Subject
lvItem.SubItems(2) = oMes.SendDate
lvItem.SubItems(3) = oMes.Size
Next

End Sub

Har du lagt dit en listbox på det formuläret då med namnet lvMessages?
/Pelle

Nej det är en Listview som ligger där.

Är oMes.MessageID ett tal?

Kan ju testa:
lvItem.Key = CStr(oMes.MessageID)

Eller ett prefix:
lvItem.Key = "#" & oMes.MessageID

Liten synpunkt. Du spara lite tid på att ange key och textargumentet i add anropet. Dels för att du slipper två procedur anrop. Som jag gissar på oxå updaterar GUI.

For Each oMes In m_colMessages
Set lvItem = lvMessages.ListItems.Add(, oMes.MessageID, oMes.From)
lvItem.SubItems(1) = oMes.Subject
lvItem.SubItems(2) = oMes.SendDate
lvItem.SubItems(3) = oMes.Size
Next

oMes.MessageID är både tal och siffror.
Tyvärr fungerar inte detta heller. Jag såg nu att om det inte låg något mail så fungerar den, men ligger det ett där så fungerar det inte.

Men det konstiga är att han skriver ut i From och allt ligger i respektive variabel men han skriver inte ut dom. Det är när han skall läsa raden set som type mismatch kommer. Klickar man på kör knappen igen så säger han att key is not unique. Gissa om jag får ett nervsammanbrott snart.

Låter som du refererar till fel bibliotek. Kontrollera referenser mot Componenter.

Kan oxå testa att skriva:
Dim lvItem As MSComctlLib.ListItem