[sooriaty03]

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

تفضل أخي مثال للأخ أبو رائد

http://vb4arb.com/vb/thread-738.html

أو استعمل الكود التالي مباشرة (وهو نفس الكود في مثال الأخ أبو رائد):

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim o As Object = CreateObject("ScriptControl")
        o.Language = "VBScript"

        TextBox2.Text = o.Eval(TextBox1.Text)

        o = Nothing
End Sub

بالتوفيق