#DesignerProperty: key: Protocol, displayname: ASC,RTU, fieldtype: int, defaultvalue:
Sub Class_Globals
Private EventName As String 'ignore
Private pgProtocol As Int
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(vEventName As String)
EventName = vEventName
End Sub
Public Sub getProtocol As Int
Return pgProtocol
End Sub
Public Sub setProtocol (v As Int)
pgProtocol = v
End Sub