Private Class Form1
 
  Private OldIndex as Integer
 
  Private Sub ListView_SelectionChanged(...) Handles _
    Listview1.ItemSelectionChanged
 
    Dim ItmTxt as String
 
    ' Abgewählte Zeile auf Vollständigkeit prüfen
    If Not e.IsSelected Then
      For X as Integer = 0 To e.Item.SubItems.Count -1
        ItmTxt = e.Item.SubItem(x).Text
        If ItmTxt.Text.Trim.Length = 0 Then
          MessageBox.Show(String.Format("In Spalte {0} fehlt der Text", _
            e.Item.SubItem(X).Name), "Text fehlt")
          OldIndex = e.ItemIndex
          Exit For
      Next
    End If
 
  End Sub
 
End Class