مشكلة Out of Stack

ربما أنك تقوم بأنهاء الفورم ويوجد فورم آخر نشط

استخدم هذا الكود وأخبرني بالنتائج

Private Sub Command1_Click()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub

B)

كود مفيش فيه حاجة غريبة أنا جربتة و كمان زودت عليه و مفيش حاجة حصلت

Private Sub Command1_Click()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub

Private Sub Command2_Click()
Dim a(50) As New Form1
For i = 0 To 50
    a(i).Show
Next
End Sub

شكرا لمروكم

لكن اكتشف انو اذا خففت من استدعاء ال Procedure تذهب هذه الرسالة

شكرا لكم

ما معنى تخفيف الأستدعاء ( أرجوا التوضيح )

:)