module1.bas

学习开发opcserver和opcclient的好例子

Attribute VB_Name = "Module1"
Option Base 1
Option Explicit

Public Server As OPCServer
Public Group As OPCGroup

Public UseEvents As Boolean
Public Adding As Boolean ' Flag to synchronize with event code
Public lastAccessPath As String
Public lastItemID As String
Public lastServer As String
Public gvalue As Variant

Public GserverHandles() As Long

Declare Function GetTickCount Lib "kernel32" () As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)