Private Sub Form_Load()
ScriptControl1.AddObject "Form1", Form1
ScriptControl1.AddCode "Function HelloWorld()" & vbCrLf & "Dim s" & vbCrLf & "s=""Hello World!""" & vbCrLf & "Form1.Caption=s" & vbCrLf & "End Function"
ScriptControl1.ExecuteStatement "HelloWorld"
End Sub
..и без компонента? VBA, что ли подкинуть???
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 50