[a_abdullah]

(07-11-16, 11:34 PM)ممدوح كتب : أهلا بك أخي محمد
وهذا الكود باستخدام Replace الذي أشار إليه أخي محمد

كود :

   Private Sub resultButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultButton1.Click
       stringLabel1.Text = " "
       Dim a, c, d As String
       c = "welcome to my world"
       stringLabel1.Text = c
       a = characterTextBox1.Text
       d = c.Replace(a, Nothing)
       resultLabel1.Text = d
   End Sub

هل يوجد شي اكبر من الشكر لاقدمه لك استاذي العزيز ؟ 
ونعم الرجل شكككرا من الاعممماق وشكرا لاتوفي حقك ): ❤️❤️❤️