Private Sub ListView1_Click()
  Dim i As Integer
 
  On Error Resume Next
 
  With ListView1
    For i = 1 To .ListItems.Count
      If .ListItems.Item(i).Selected = True Then
        If .ListItems.Item(i).SubItems(1) = "1" Then
          FormInTaskbar .ListItems.Item(i).SubItems(2), False
          .ListItems.Item(i).SubItems(1) = "0"
 
        Else
          FormInTaskbar .ListItems.Item(i).SubItems(2), True
          .ListItems.Item(i).SubItems(1) = "1"
        End If
      End If
    Next i
  End With
End Sub