IRefresh / Refresh Example

 

The following example shows a subroutine that refreshes a passed PIPoint and any of its child objects (PointAttributes, PointClass) that have been retrieved from the Server in earlier calls.

 

Private Sub RefreshPIPoint(pt As PIPoint)
On Error GoTo eh:
   Dim rfr As IRefresh
   Set rfr = pt
   rfr.Refresh
Exit Sub
eh:
   MsgBox Err.Description
End Sub
Enabling Operational Intelligence