For i As Integer = 0 To LvUser.Items.Count - 1
            Select Case LvUser.Items(i).SubItems(6).Text
                Case Is = 0
                    LvUser.Items(i).ForeColor = Color.Blue
                Case Is >= 1
                    LvUser.Items(i).ForeColor = Color.Green
            End Select
        Next
不能根据设置的颜色换色