How do I eval with Scriptcontrol an own function in VB.NET?

Hi!

I try to evaluate my own function with Scriptcontrol (vbscript language), but always got this error:
Type mismatch: 'TestMethod'
(code below)

Anyone could help?

Sorry for my weak english.

Robert

Imports MSScriptControl
 
Module Module1
 
    Public Sub Main()
        Dim scTemp As New ScriptControl()
        Dim blnResult As Boolean
 
        Try
            scTemp.Language = "VBScript"
            blnResult = CType(scTemp.Eval("TestMethod(True)"), Boolean)
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & ex.StackTrace)
        End Try
    End Sub
 
    Public Function TestMethod(ByVal blnParam As Boolean) As Boolean
        Return blnParam
    End Function
End Module

Select allOpen in new window