Private Sub Command1_Click()
    Load New Form2
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Dim frmForm As Form
 
   For Each frmForm In Forms
        Unload frmForm
        Set frmForm = Nothing
    Next frmForm
 
End Sub

Private Sub Form_Load()
    Me.Show
    'Hier auf den Wert der Liste zugreifen und verarbeiten
End Sub