Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim txt As String = ""
        Dim richtige As Int32
        For i = 1 To 6
            Me.Controls.Find("Textbox" & i.ToString, True)(0).BackColor = _
              SystemColors.Window
        Next
        For i As Int32 = 7 To 12
            txt = Me.Controls("TextBox" & i.ToString).Text
            For j As Int32 = 1 To 6
                If Me.Controls.Find("Textbox" & j.ToString, True)(0).Text = txt _
                  Then
                    Me.Controls.Find("Textbox" & j.ToString, True)(0).BackColor _
                    = Color.GreenYellow
                    richtige += 1
                End If
            Next
        Next
        MsgBox(richtige & " Richtige")
    End Sub
End Class
MfG GPM