[mhmd_911]

استخدم هذه الدالة

PHP كود :

Private Function calc(formula As String) As Double
    Try
        Dim obj As Object = CreateObject("ScriptControl")
        obj.Language = "VBSCRIPT"
        Return obj.Eval(formula)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Function 


PHP كود :

Me.TextBox1.Text = calc(Me.TextBox1.Text)