Dim itemx As ListItem
 
  Load frmURL
  With frmURL
    .Caption = "URL hinzufügen"
    .Show 1
    If .Tag = True Then
      Set itemx = lvwSurfgebiet.ListItems.Add(imgMain.ListImages.Add(1, "OK"))
        itemx.SubItems(1) = .txtURL.Text
    End If
  End With
  Unload frmURL

mfg
peacemaker

e-mail: vbarchiv@web.de