Buenas amigos, yo nuevamente con otro inconveniente.
La cuestion es que estoy trabajando con el el control este y me presenta una dificulatad, primero les pego el procedimiento como lo uso:
Dim o_Script As MSScriptControl.ScriptControl
Private Sub Form_Load()
' Inicializa la variable para usar el ScriptControl
Set o_Script = New MSScriptControl.ScriptControl
' Establece como lenguaje VBScript
o_Script.Language = "VBScript"
o_Script.AddObject "Form1", Form1
End Sub
Ahora tengo unas funciones pongo dos:
Public Function suma(a, b)
suma = a + b
End Function
Public Function resta(a, b)
resta = a - b
End Function
Private Sub Command2_Click()
cantidad = o_Script.Eval(me.text1.text)
msgbox(cantidad)
end sub
ahora para ue el eval me tire el resultado de Suma(10,10) o sea msgbox(20), tengo que escribir en el text1: Form1.suma(10,10), es ahi donde tengo el problema, por lo que mi consulta es: existe alguna forma de evitar tener que especificar el nombre de la clase seguido del el nombre de la funcion? y solo pasar el nombre de la funcion para que evalue?, no se si se entiende, es que solo puse dos funciones sencillas pero tengo muchas y que necesito que se puedan evaluar mas prolijamente desde varios formularios sin tener ue poner nombreform.funcion..., o al menos poder llamar a dichas funciones desde un solo formulario pero sin tener que pasar el nombre del form, de antemano gracias por su ayuda.