how do i go about this?

[adshocker]

hi,

im trying to create a global procedure in my class module that calls a form

i have these codes on every form but the form im calling differs... this is just an example.

'Code I have in my Form1 in a button to call Form2.
Dim myForm2 as New Form2
myForm2.MdiParent = Me.MdiParent
myForm2.Show

i tried creating a module and placed these codes

    Public Sub Load_Form(ByVal FormToLoad As Form)
        Dim Active_Form As New FormToLoad
        Active_Form.MdiParent = Me.MdiParent
        Active_Form.Show
    End Sub

unfortunately, there are some errors on this. those underlined causes some problems... are there any other approach on how to do this?

[mehul.pandya]

Hi

u can use technique of late binding like below

Public Sub loadForm(ByVal frm As Form)
        Dim f As New Form
        f = frm
        f.MdiParent = MDIParent1
        f.Show()
    End Sub

[adshocker]

thanks.. this works ok.

[stanav]

It's not gonna work if you want to load a specific form... It only load a generic blank form for you with that code.