[silverlight]

هذا حل أخر مختلف قليلا

افتح مشروع جديد و اضف الي الفورم الأتي
- باتون
- تكست بوكس
- ليبل
- ليبل


ثم اكتب الكود بالشكل التالي
أعتقد انك تستطيع تغيير الصورة ايضا بناء علي هذا الكود
الكود مكتوب بحيث يتجنب الاخطاء

PHP كود :

Public Class Form1

    Private Function TryProvideSimCardNumber(ByRef source As String, func As Func(Of String, String)) As Boolean
        While func IsNot Nothing
            Dim src As String = System.Threading.Volatile.Read(source)
            Dim dest As String = func(src)
            If src = dest Then
                Exit While
            End If
            If src = Threading.Interlocked.CompareExchange(source, dest, src) Then
                Return True
            End If
        End While
        Return False
    End Function

    Private Function TryProvideSimCardNumber(func As Func(Of String, String)) As String
        Dim source As String = Nothing
        Return TryProvideSimCardNumber(source, func)
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim func As Func(Of String, String) = Function(s)
                                                  Dim result As String = "89967"
                                                  result += s
                                                  Return result
                                              End Function

        If Me.TryProvideSimCardNumber(func) Then
            Dim s As String = TextBox1.Text
            Me.Label2.Text = func(s)
            Label1.Text = func(s).Length
        End If
    End Sub

End Class