Hi,


I am using the following code in my VB project,

In Form1 I have:

Private Sub Form_Load()
Dim Frm3 As New Form3
Frm3.ShowPage (Me)
......
.....
.....
End Sub

In Form3 I have:

Private firstForm As Form1
Public Sub ShowPage(ByRef frm As Form1)
firstForm = frm
End Sub

When I run it I get a runtime error '13' - Type Mismatch.

Please help me get rid of this error.

Try:

Set firstForm = frm

Ad.

Hi,

I tried it but didnt work. Thanks anyway.