[3booody]

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

تفضل اخي هذا طلبك

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = plus(TextBox1.Text, TextBox2.Text)
   End Sub

   Function plus(ByVal n1 As String, ByVal n2 As String) As String
       Dim ln As Integer = 0
       If n1.ToString.Length > n2.ToString.Length Then
           ln = n1.Length
       Else
           ln = n2.Length
       End If
       Dim f As String = CInt(n1) + CInt(n2)
       Dim P As Integer = f.ToString.Length
       If P < ln Then
           Dim s As New String("0"c, ln)
           Return Format(CInt(n1) + CInt(n2), s)
       End If
       Return CInt(n1) + CInt(n2)
   End Function