ساختن از روی یک فرم در Mdi

سلام دوستان
من یک فرم از نوع MDI ساختم بعد میخوام از یک فرم به نام فرم 1 با زدن یک کلید تولید کنم ولی فقط یکی تولید میشه کدی که نوشتم به صورت زیر هست..

Dim frmnew as form1
set frmnew=new form1
frmnew.show

احتمالا تو اين كد رو توي فرم MDI گذاشتي. براي اينكار بايد از اشياء آرايه‌اي استفاده كني
مثلا همچين كدي رو توي بدنه فرم MDI بنويس
يه منو هم بساز به نام mnuOpen كه با كليك شدنش كد مربوط به ساخت فرم جديد شكل بگيره

کد:

---

Option Explicit
Dim frm() As Form

Private Sub MDIForm_Load()
    ReDim frm(0)
End Sub

Private Sub mnuOpen_Click()
    Dim cnt As Long

    cnt = UBound(frm())
    cnt = cnt + 1
    ReDim frm(cnt)
    Set frm(cnt) = New Form1
    frm(cnt).Show
End Sub

---