listview - count checked items

[chris-2k]

Hope someone can help..........

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            For Each CheckedApp As ListViewItem In App_List.Items
                CheckedApp.Checked = True
                Button1.Text = "Start installing (" + App_List.Items.Count > -1 + " apps.)"
            Next
        ElseIf CheckBox1.Checked = False Then
            For Each CheckedItem As ListViewItem In App_List.Items
                CheckedItem.Checked = False
            Next
        End If
    End Sub

problem, checkbox1 isn't checking items and the button text, i not sure works....