I have the following code in an mdi form:\

private Sub new_Click()
Dim a as Form1
set a = new Form1
a.Caption = "new Script"
a.show
End Sub




And i also have a module with a function:


Function insertfunc()
Dim func as string
Dim ch
Dim func2 as string
ch = Chr(10)
func = InputBox("Enter function name")
func2 = "function " & func & "()" & ch & "{" & ch & "" & ch & "}"
insertfunc = func2
End Function



Everything works fine. I can create a new form, the function is called without any errors. But when i try to create another new form, it won't create another new one unless the first one is closed. I have the same code in other programs and it works fine. What am i doing wrong? I'll give ratings


--Ant
--------------------------------------------------
check out my newest freeware
E-mail me at: [email protected]
for the address