ひとつのフォームを複数個開くには？

ひろし  2004-11-05 10:07:06  No: 117385  IP: [192.*.*.*]

ひとつのフォームを実行時に同時に複数個開くにはどうしたら
良いでしょうか？

編集 削除
nanashi  2004-11-05 10:33:10  No: 117386  IP: [192.*.*.*]

VB6でしょうか？
例えばこんな感じ↓で出来ます。

Sub Main()
    Dim frm1(9) As Form1
    Dim lLp As Long
    
    For lLp = 0 To 9
        Set frm1(lLp) = New Form1
        
        Load frm1(lLp)
        
        frm1(lLp).Show
    Next
End Sub

あとのことを考えたらFormの宣言はプロシージャの外でPublicにした方が良いかもしれませんけど。

編集 削除
ひろし  2004-11-05 10:50:22  No: 117387  IP: [192.*.*.*]

お返事ありがとうございます。VB6使ってます。
早速試してみます。

編集 削除