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
Exit Sub
   MsgBox Err.Description
End Sub
Enabling Operational Intelligence