GetAllConnections Subroutine Example

The following example shows how to use a click event on rectangle object to retrieve all data items within a picture and then display them in a message box.

Private Sub Rect2_Click()

   Dim obj

   Dim str As String

   GetAllConnections Me

   For Each obj In AllConnectionsCollection

     str = str & CStr(obj) & vbCr

   Next

   MsgBox str, , Me.Name

End Sub