Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  Static bWorking As Boolean
 
  If bWorking Then Exit Sub
 
  bWorking = True
  If Item.Checked Then
    ' Prüfen!
    Dim oItem As ListItem
 
    For Each oItem In ListView1.ListItems
      With oItem
        If .Index <> Item.Index And .Checked Then
          ' anderer Eintrag ist bereits ausgewählt!
          ' Markierung jetzt entfernen
          .Checked = False
        End If
      End With
    Next
  End If
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de