Ciao ilsanto18,
vedi se così risolvi il tuo problema:

codice:
Option Explicit
Private Sub List1_Click()

' Sincronizza gli indici:
     List2.ListIndex = List1.ListIndex
    'List2.TopIndex = List1.TopIndex
End Sub
'---------------------------------------
Private Sub Command1_Click()
    Dim i As Long
    Dim Entry1 As String
    Dim Entry2 As Double
    
' Crea un elemento:
    Entry1 = "Elemento"
    Entry2 = 10.2545

' Inserisce le descrizioni ed i relativi valori:
    For i = 0 To 10
        List1.AddItem Entry1 & Space(1) & i
        List2.AddItem Entry2 + i
    Next
End Sub
Rimane da inserire le descrizioni dei materiali ed i relativi valori, ma penso che ti abbia già risolto. Ti consiglio, comunque, di utilizzare gli indici per essere sicuro che le List siano in sempre in sincrono.
Fammi sapere.

PS: Forse così é più chiaro:
codice:
For i = 0 To 10
        List1.AddItem Entry1 & Space(3) & i
        List2.AddItem Entry2 + i & Space(3) & i
    Next