Kedmyster
11-01-2004, 01:55 PM
Hey, so I made this procedure which should load all forms there is in the project, it goes like this:
Sub LoadAll()
Dim Frm As Form
For Each Frm In Forms
If (Frm.Tag <> frm_Menu.Tag) Then
Load Frm
frm_Menu.ProgressBar.Value = frm_Menu.ProgressBar.Value + 1
End If
Next
End Sub
I came into a conclusion that only loaded forms are in this 'Forms' gruop which doesn't really help me cause I want to load them =P
Is there a way to access all forms in the project, run through them all and load them one by one?
I'd appreciate any kind of help.
Thanks,
kedmyster.
Sub LoadAll()
Dim Frm As Form
For Each Frm In Forms
If (Frm.Tag <> frm_Menu.Tag) Then
Load Frm
frm_Menu.ProgressBar.Value = frm_Menu.ProgressBar.Value + 1
End If
Next
End Sub
I came into a conclusion that only loaded forms are in this 'Forms' gruop which doesn't really help me cause I want to load them =P
Is there a way to access all forms in the project, run through them all and load them one by one?
I'd appreciate any kind of help.
Thanks,
kedmyster.