Private Function verificar(columna As Integer)
 
    Dim i As Integer
    Select Case columna
    Case 0
    For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i) <> "" Then
    ListView1.ListItems(i).ForeColor = vbRed
    Debug.Print ListView1.ListItems(i)
    End If
    Next i
    ListView1.Refresh
    Case Is >= 1
 
    For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).SubItems(columna) <> "" Then
        ListView1.ListItems(i).ListSubItems(columna).ForeColor = vbRed
        Debug.Print ListView1.ListItems(i).SubItems(columna)
    End If
    Next i
    ListView1.Refresh
    Case Else
    End Select
End Function