[أبو خالد الشكري]

وعليكم السلام ورحمة الله وبركاته


ضع الكود التالي في زر Button

واكتب D1 هذا في صندوق النص TextBox

* أو قم بتحميل المشروع المرفق .

واعطني النتيجة !

كود :

    Dim txt As String = TextBox1.Text
       Dim Number As Byte = 0
       Dim Litter As String = ""

       Litter = txt.Substring(0, 1)
       txt = txt.Substring(1, 1)
       txt = txt + 1

       TextBox1.Text = Litter & txt