Private Sub cmdBearbeiten_Click()
Dim strSection As String
Dim itemx As ListItem
Dim Icon As Integer
 
    Set itemx = lvwSurfgebiet.SelectedItem
 
    On Error GoTo errhandler:
 
    Load frmURL
    frmURL.Caption = "URL bearbeiten"
    With frmURL
      .txtURL.Text = itemx.SubItems(1)
      If itemx.SubItems(2) = "Erlaubt" Then .optErlaubt.Value = True _
      Else If itemx.SubItems(2) = "Verboten" Then .optVerboten.Value = True
 
      .Show 1
      If .Tag = True Then
        If .optErlaubt.Value = True Then Icon = "1" Else Icon = "2"
        itemx.Icon = lvwSurfgebiet.ListItems.Add(, , "", , Icon)
        itemx.SubItems(1) = .txtURL
        If .optErlaubt.Value = True Then itemx.SubItems(2) = "Erlaubt" _
        Else If .optVerboten.Value = True Then itemx.SubItems(2) = "Verboten"
      End If
    End With
    Unload frmURL
 
errhandler:
    If Err.Number = "91" Then
        MsgBox ("Kein Eintrag zum bearbeiten vorhanden")
    End If
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de