Private Sub ListView1_ItemClick(Item As ListItem)
  Dim bResult As Boolean
  Dim i As Integer
 
  bResult = False
  If .Text <> "" THen
    bResult = True
    For i = 1 To ListView1.Columns.Count - 1
      If item.SubItems(i) = "" Then bResult = False: Exit For
    Next i
  End If
 
  Command1.Enabled = bResult
End Sub