Dim Key() As String
 
  Dim itemX As ListItem
 
  Redim Key(1)
 
  Key(0) = "Irgendein Text"  
 
  Set itemX = main.lvwKeys.ListItems.Add(, , Key(0))
  itemX.SubItems(1) = "Hallo"

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control