Public Class frmListMuster
 
    Dim lv As New System.Windows.Forms.ListView With {.Parent = Me, .Size = New _
      Size(400, 400), .View = View.Details}
 
    Dim musters As New List(Of Integer())
    Dim colors As New List(Of Color)
 
 
    Private Sub frmListMuster_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
       'Muster  (nach Länge geordnet)
       musters.Add({25, 89, 185, 281, 377, 473, 537})
       musters.Add({89, 185, 281, 377, 473, 537})
       '..............
 
      'Markierfarben der Muster
       colors.Add(Color.Cyan)
       colors.Add(Color.Yellow)
       '...............
 
 
       Dim basecolor As Color = Color.White
 
       'Testdaten
       lv.Columns.Add("Ziffernfolge")
       For i As Integer = 0 To musters.Count - 1
        For k As Integer = 0 To musters(i).Length - 1
            lv.Items.Add(musters(i)(k))
        Next k
       Next i
       lv.Items.Add(1234)
       For i As Integer = 0 To musters.Count - 1
          For k As Integer = 0 To musters(i).Length - 1
             lv.Items.Add(musters(i)(k))
          Next k
       Next i
 
 
      'Markieren der gefundenen Musterfolge
      Dim ok As Boolean
 
      'Schleife über alle Muster
      For m As Integer = 0 To musters.Count - 1
 
        'Schleife über die Items für Suche nach Muster m
        For it As Integer = 0 To lv.Items.Count - 1
 
            ok = True
 
            'Schleife über Ziffernfolge vom Muster m
            For k As Integer = 0 To musters(m).Length - 1
                If it + k > lv.Items.Count - 1 Then
                    ok = False : Exit For
                End If
                If Not ColorsEqual(lv.Items(it + k).BackColor, basecolor) Then
                    ok = False : Exit For
                End If
                If CInt(lv.Items(it + k).Text) <> musters(m)(k) Then
                    ok = False : Exit For
                End If
            Next k
 
            If ok Then
                'Muster m ab Item It markieren mit color(m)
                For k As Integer = 0 To musters(m).Length - 1
                    lv.Items(it + k).BackColor = colors(m)
                Next k
            End If
        Next it
    Next m
 
End Sub
 
 
 
Private Function ColorsEqual(c1 As Color, c2 As Color) As Boolean
 
   If c1.R <> c2.R Then Return False
   If c1.G <> c2.G Then Return False
   If c1.B <> c2.B Then Return False
   Return True
 
End function