Iodem Asakura:
Usa una referencia a Microsoft Script Control.
Prueba esto:
En un formularion nuevo, agrega una referencia a Microsoft Script Control. Luego, inserta dos TextBox y un CommandButton. Agrega el siguiente código:
Código:
Option Explicit
Private m_scScriptCtrl As ScriptControl
Private Sub Command1_Click()
executeInstruction Text1.Text
End Sub
Private Sub executeInstruction(instruction As String)
m_scScriptCtrl.ExecuteStatement instruction
End Sub
Private Sub Form_Load()
Set m_scScriptCtrl = New ScriptControl
m_scScriptCtrl.Language = "VBScript"
m_scScriptCtrl.AddObject "miForm", Me
End Sub
Ejecuta el programa. En el TextBox1, pon tu instrucción:
Código:
'Podrías usar esto:
miForm.Text2.Enabled = False
'Y podrías complicarlo un poco más
miForm.Text2.Enabled = Not miForm.Text2.Enabled
El control tiene otros métodos, que te permiten agregar nuevas funciones en tiempo de ejecución. Puedes agregarlo también como un control, pero yo prefiero usar una referencia.
En este foro he pegado algunos ejemplos con otros usos de este control (por si te interesa) sólo usa el buscador.
Saludos.