title: list of items only adds one new item
body: <p>Following is the code I am attempting to use to import data from a database into a list of objects (from a class).   However, it only gets one item in the list when the loop finishes.  I used to place the data into a ListBox instead of a dynamic list of objects and that worked, so the data is being retrieved.</p>
  
  <pre><code>Public Class AnItem
      Public Item As String
      Public TheType As String
  End Class
  
  Public MyLists As List(Of AnItem) 
  
  Private Sub AddToList()
      Dim i as integer
      Dim fs as AnItem
  
      For i = 0 To numberOfDataBaseitems
          Dim fs as new AnItem
          'fs.item = 'item 1'
          'fs.type = 'box'
          fs = getData(i)
  
          'ONLY one ITEM IS ADDED!!!!!!??????
          MyLists = New List(Of AnItem)  
          MyLists.Add(fs)
      Next I
  End Sub
  </code></pre>