GetAllConnections 子程序示例

下列示例说明如何在Rectangle对象上使用Click事件，获得画面内的所有数据项，然后将其显示在一个消息框中。

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