intCols = frmMain.lvwSurfgebiet.ListItems.count
      Wert = intCols
 
      WritePrivateProfileString "picSurfgebiet", "Count", Wert, INIFile
 
      With frmMain.lvwSurfgebiet.ListItems
          For i = 1 To .count
          With frmMain.lvwSurfgebiet.ListItems(i)
              URL = .SubItems(1)
              EV = .SubItems(2)
              URL = URL & ";" & EV
              WritePrivateProfileString "picSurfgebiet", "URL" & i, URL, _
                INIFile
          End With
          Next i
      End With

mfg
peacemaker

e-mail: vbarchiv@web.de