La Idea que me surgió:
Esta es mi idea, no sé si te va a servir:
Código:
Private ActualRtmg As String
Public Property Let Rtimg(ByVal m_newImg As String)
ActualRtmg = m_newImg
End Property
Public Property Get Rtimg() As String
Rtimg = ActualRtmg
End Property
Colocar Eso en las Declaraciones del Form
Y este código:
Código:
Private Sub Form_Load()
Grupo = "LOC"
sclave = "Rtimg"
svalor = "c:\img"
StrCodigo = Grupo & "." & sclave & "=" & Chr(34) & svalor & Chr(34)
Set scrip = CreateObject("ScriptControl")
With scrip
.Language = "VBScript"
.addobject "LOC", Me, True
.ExecuteStatement StrCodigo
End With
End Sub
No te devolverá en la Variable por supuesto, pero te devolverá en la Propiedad del Form Especificada en sclave....
