[silverlight]

أنت أدق يا أسامة ... أنا اللي كنت نايم و ما لاحظت ان الكود غير كامل

PHP كود :

       Dim source As String = Me.TextBox1.Text
        If Not String.IsNullOrEmpty(source) Then
            Dim chrs As Char() = source.ToCharArray()
            Dim lastChar As Char = chrs(source.Length - 1)
            While source.Length > 0 AndAlso source(source.Length - 1) = lastChar
                source = source.Substring(0, source.Length - 1)
            End While
            Me.TextBox1.Text = source
        End If 


أو

PHP كود :

       Dim s As String = Me.TextBox1.Text
        If Not String.IsNullOrEmpty(s) Then 
            Dim chrs As Char() = s.ToCharArray()
            Dim last As Char = chrs(s.Length - 1)
            Me.TextBox1.Text = Me.TextBox1.Text.TrimEnd(last)
        End If