Private Sub List2_DblClick()
'Textboxen aus Array füllen
Archiv.Width = 5250
Dim i As Long
   Dim j As Long
 
      'Index aus Array ermitteln
      i = List2.ItemData(List2.ListIndex)
 
 
 
      For j = 0 To Text4.Count - 1
         Text4(j).Text = AdrArray(j + 1, i)
      Next
 Label12.Caption = List2.ListIndex
 
 
End Sub