Public Module PublicModul
 
    Public WithEvents obj_OPCServer As OPCAutomation.OPCServer = _ 
    New OPCAutomation.OPCServer
    Public WithEvents obj_OPCServerBrowser As OPCAutomation.OPCBrowser
    Public WithEvents obj_OPCGroups As OPCAutomation.OPCGroups = _ 
    obj_OPCServer.OPCGroups
    Public WithEvents obj_OPCgroup As OPCAutomation.OPCGroup
    Public WithEvents obj_OPCItems As OPCAutomation.OPCItems
    Public WithEvents obj_OPCItem As OPCAutomation.OPCItem
    Public OPCItemID As Object
 
End Module

Public Class Form1
    Private Sub objOPCGroup_DataChange(ByVal TransactionID As Integer,ByVal _
      NumItems As Integer, ByRef ClientHandles As Object, ByRef ItemValues As _
      Object, ByRef Qualities As Object, ByRef TimeStamps As Object) Handles _
      obj_OPCgroup.DataChange
 
        'some code
 
    End Sub
End Class