Showing Forms dynamically

[Aaron Young]

You could create a Collection to which you could add all the Forms, then use there Key to Call them, eg.

Dim MyCollection As New Collection

Private Sub Command1_Click()
    'Display a Random Form
    MyCollection("Form" & Int((Rnd * 3) + 1)).Show
End Sub

Private Sub Form_Load()
    MyCollection.Add Form1, "Form1"
    MyCollection.Add Form2, "Form2"
    MyCollection.Add Form3, "Form3"
    MyCollection.Add Form4, "Form4"
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]


[This message has been edited by Aaron Young (edited 12-08-1999).]