PIModuleList Example

 

Private Sub Command1_Click()
    Dim Srv As Server
    Dim Module1 As PIModule
    Dim Module2 As PIModule
    Dim ModuleList1 As New PIModuleList
    Dim ModuleList2 As New PIModuleList

    Set Srv = Servers.DefaultServer
    Set Module1 = Srv.PIModuleDB.PIModules.Item(1)
    ModuleList1.Insert Module1
    Set Module2 = Srv.PIModuleDB.PIModules.Item(2)
    ModuleList2.Insert Module2
    ModuleList1.Merge ModuleList2
    ModuleList1.Remove Module1
    ModuleList1.Remove Module2
    ModuleList2.Remove Module2
End Sub
Enabling Operational Intelligence