Olá pessoal do fórum!

Tenho está codigo que estou usando com uma checkbox e funciona direito, mas queria criar um procedimento no botão exemplo

        If cckST.Value = cAktiviert Then

            For i = 1 To ListProdutos.ListItems.Count
                If ListProdutos.ListItems.Item(i).Checked = False Then
                    ListProdutos.ListItems.Item(i).Checked = True
                End If
            Next i
        Else
            For i = 1 To ListProdutos.ListItems.Count
                If ListProdutos.ListItems.Item(i).Checked = True Then
                    ListProdutos.ListItems.Item(i).Checked = False
                End If
            Next i
     End If

o que estou precisando e criar esta linha de comando da seguinte forma, exemplo

Ao dar o click no botão e se minha listview estiver com as chekboxes DESMARCADA então MARCAR, e vise e versa

então resumindo quero usar o botão e Marcar ou desmarca as checkboxes da minha ListView como este utilizando este código acima, Não quero mais usar o checkbox como esta acima e sim um botão...
se alguém puder me ajudar,
Agradeço desde já,

Atenciosamente,
Isabella