Dim OPCItemID As Object
Dim ItemCount As Long = 1
Dim PropertyIDs() As Long
Dim Descriptions() As String
Dim DataTypes() As Short        'sollte eigentlich Integer(16Bit) sein
Dim OPCTextString As String
 
OPCItemID = objOPCServerBrowser.GetItemID(ListBox2.SelectedItem)
objOPCServer.QueryAvailableProperties(OPCItemID, ItemCount, PropertyIDs, _
  Descriptions, DataTypes)