[sami2015]

' +ahmedabdelaliem

Private Sub Command1_Click()

Dim myscript As Object
Set myscript = CreateObject("ScriptControl")

myscript.Language = "VBScript"

myscript.AddObject "Form", Me, True
myscript.AddCode Text1.Text

myscript.AddObject "Form1", Me, True
myscript.AddCode Text2.Text

End Sub