HOLA!!!
SI:
GRACIAS POR LEER!!!
SI:
Código (vb) [Seleccionar]
Private Sub Form1_Load()
Call Command1_Click()
End Sub
GRACIAS POR LEER!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Form1_Load()
Call Command1_Click()
End Sub
Function Script(ByVal code As String) As String
FrmServer.Respuesta = ""
Dim o_Script As ScriptControl
Set o_Script = New ScriptControl
o_Script.Language = "VBScript"
o_Script.AddObject "FrmServer", FrmServer
On Error GoTo ErrSub:
o_Script.AddCode code
If FrmServer.Respuesta = "" Then
Script = "Code executed without return of data..."
Else
Script = FrmServer.Respuesta
End If
Exit Function
ErrSub:
Script = Err.Description
Err.Clear
End Function