Public Sub ExecEventsProc()
        Dim str As String = ""
 
        For Each Item As String In ListBox1.Items
            str &= IIf(Item = 128, 1, 0)
        Next
 
        If ListBox1.Items.Count > 11 Then
            ListBox2.Items.Add(str)
            ListBox1.Items.Clear()
        End If
    End Sub