FindDataSource Subroutine Example

The following example finds the datasource for the VerticalFillPercentage property of the object Tank1, which is contained in the Picture TestPicture.

Dim iTank As Object

Dim sDataSource As String

Set iTank = untitled1.Tank1

sDataSource = FindDataSource(iTank, "VerticalFillPercentage")