??? se ho capito bene
codice:
Sub Form_Load
  'questa è la load della seconda form
  dim ind as integer

  With Form1
    for ind=0 to .list1.lincount-1
      list2.additem .list1.list(ind)
    next    
  end With
End Sub