سؤال في Regular Expressions

Imports System.Text.RegularExpressions 

Dim input As String = "" 
Dim pattern As String = "" 
Dim matches As MatchCollection = Regex.Matches(input, pattern, RegexOptions.IgnoreCase) 
If matches.Count > 1 Then 
	MessageBox.Show("duplication detected.") 
	Return 
End If

شكراً جزيلاً لك يا AhmedElbaz

ولكن لي سؤالين

أولاً: شرح بسيط للعملية

ثانياً:

"(1-9),\1"

ماذا لو أردت أن أمنع من إدخال ماتمت كتابته بين القوسين بعد الفاصلة

1,2 صحيح

1,1 خطأ