i = Val(InputBox(""))
For n = 1 To i
Load Form1(n)
Form1(n).Left = Form1(n - 1).Left + Form1(n - 1).Width
Form1(n).Visible = True
Next

تو خط مشخص شده به مقدار n گیر داد وگفت subscript out of range
فکر نمیکنم فرم قابلیت ارایه شدن داشته باشه