For each Entry as DataBaseEntry in Setting.DataBase.Items
   Application.doEvents  
   if Entry.State <> EntryState.Offline
      AddEntryToListView(Entry)
   End if 
next

Friend Sub AddEntryToListView(Item as DataBaseEntry)
    try
       Dim ListViewItem1 as new ListViewitem
       Listviewitem1 = lvwDataBase.items.add(Item.Value1)
       ListviewItem1.Subitems.add(Item.Value2)
       ListviewItem1.Subitems.add(Item.Value3)
       ListviewItem1.Subitems.add(Item.Value4)
    Catch ex as Exeption
       MsgBox("Beim anlegen des Datenbankeintrag ist ein Fehler passiert" & _
         vbnewline & ex.Message )
    End Try
End Sub