We help IT Professionals succeed at work.
Get Started

vb6 byref withevents not working

AmeriSciences
on
1,083 Views
Last Modified: 2013-11-25
I am having an issue with by ref in vb6.

I have a private form with events object declared in a form.  If I pass the private form to a function as by ref, the object is not returned to the parent routine.  here is a code and debug snippet.

Public WithEvents o_frmBusy As frmVBBusy

Private Sub Command9_Click()
    Debug.Print o_frmBusy Is Nothing
   
    rtnSetForm o_frmBusy
   
    Debug.Print o_frmBusy Is Nothing
End Sub

Public Sub rtnSetForm(ByRef r_frmBusy As frmVBBusy)
    If r_frmBusy Is Nothing Then
        Debug.Print r_frmBusy Is Nothing
   
        Set r_frmBusy = New frmVBBusy
       
        Debug.Print r_frmBusy Is Nothing
    End If
End Sub

Debug is
True
True
False
True

if I remove the withevents it works.  any thoughts
Comment
Watch Question
Top Expert 2010
Commented:
This problem has been solved!
Unlock 2 Answers and 14 Comments.
See Answers
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE