// get accessor Int32 rtn = Channel.ID; |
Application.Devices.enable = true ' first add the device if it is not there yet set oDevice = Application.Devices.Item("PC1600") If TypeName (oDevice) = "Nothing" Then set oDevice = Application.Devices.AddDevice( "PC1600" ) End If set oChannel = oDevice.Channel(1) logmessage "The channel 1 ID is? " & CSng(oChannel.ID) |