Analysis results

- When calling a VB or a COM event

- When the return type of a function is not a standard one

Here is a sample that shows one of these links.

Private Sub MySub(i As Integer)

  'Do Whatever

  End Sub

Private Sub Command1_Click()
 
  Dim j As Integer

  MySub (j)

End Sub

This will result in the following view:

In the following sample, we have a class (Class1) that defines an event (Gong) and a method (MyMethod). When MyMethod is called, we raise an event.

Event Gong()

Public Sub MyMethod()

RaiseEvent Gong

End Sub

This will result in the following view (includes only event relevant links):

There is also a Form (Form1) that has the button (Command1). Here’s the code of this Form:

Private WithEvents mHandler As Class1

Private Sub Command1_Click()

   Set mHandler = New Class1

   mHandler.MyMethod

End Sub

Private Sub mHandler_Gong()

MsgBox "Gong !"

End Sub

- When declaring a user data-type, link with the non standard members of this user data-type

- When referencing a non standard type member of a user data-type variable

- When accessing a variable

- When declaring a function return value of a non standard type

In this sample, the user control “UserControl1” is used in the form “Form1”

- When implementing an event using WithEvents statement