Dim WithEvents MyOPCServer As OPCHDAServer 'OPCServer-Objekt is declared
Dim SynthItems As OPCHDAItems
Dim OpCItem As OPCHDAItem
Dim ItemValues() As Variant
Dim Error() As Long
Dim Res As Point


Sub ReadRaw()
Res = SynthItems.SyncReadRaw(Now, Now - 1, 24, 1, Cells(5, 2), [color=red]ServerHandles()[/color] , ItemValues(), Error)
End Sub
Private Sub CommandButton1_Click()
ReadRaw
End Sub
Sub Connect()
Set MyOPCServer = New OPCHDAServer
MyOPCServer.Connect "Logika.HDA.2"
End Sub
Private Sub CommandButton2_Click()
Connect
End Sub
Sub Disconnect()
MyOPCServer.Disconnect
End Sub
Private Sub CommandButton3_Click()
Disconnect
End Sub

Sub SyncReadRaw(StartTime, EndTime, NumValues As Long, Bounds As Long, NumItems As Long, ServerHandles() As Long, ItemValues() As Variant, Errors() As Long)