[ابو انس]

وعليكم السلام
اظن ان بسام يريد التالي

كود :

     Dim i As Integer = TextBox1.TextLength

       Dim s As String
       Dim d_text1 As String
       s = TextBox2.Text
       d_text1 = (LSet(s, i))
       If TextBox1.Text <> d_text1 Then
           MsgBox("لقد ادخلت حساب خطأ")
       End If