Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim SC As Object
		SC = CreateObject("ScriptControl")
		SC.Language = "VBScript"
		sc.addobject ("button2", button2, True)
		sc.addcode(textbox1.Text)
	End Sub
	Function quad(i As single) as single
		quad = i^2
	End Function
	Sub Box
		msgbox("Hallo")
	End Sub

MfG Frosch

Die Titanic wurde von Profis gebaut...die Arche Noah von einem Amateur - So muss man das sehen!