Dim x As Integer, y As Integer, z As Integer
Dim devid As Byte = &H00
Dim msg_tx(0 To PCS_MAXMESSAGESIZE - 1) As Integer
Dim msg_rx(0 To PCS_MAXMESSAGESIZE - 1)
 
Dim msg_tx_len As Integer, msg_rx_len As Integer 
Dim com_status As Byte
Dim responsecode As Byte
 
msg_tx_len = 0
com_status = PCS_sendCommand(pcsdev, PCSCC_ReadRawADCChannels, devid, _
msg_tx(0), msg_tx_len, msg_rx(0), msg_rx_len, _
responsecode)
 
If com_status <> PCSCS_OK || responsecode <> PCSRC_OK Then
  MsgBox "ReadRawADCChannels: communication error: " & comstatus & ", " & _
    responsecode
Else
  x = msg_rx(0)
  y = msg_rx(1) 
  z = msg_rx(2) 
End If

Public Declare Function PCS_sendCommand Lib "DerDLLName.dll" (ByVal pcsdev As _
  Long,ByVal action As Long,ByVal devid As Byte, ByVal cmd As Byte, ByVal _
  cmd_len As Integer, ByVal response As Byte, ByRef res_len As Integer, ByRef _
  rescode) As Long

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008