Returns the option Property nested under the device. Not all device driver have options. The option property is specified in the device description file.
Application.Devices.enable = true
set oDevice = Application.Devices.Item("MIDIKeyboard")
If TypeName (oDevice) = "Nothing" Then
set oDevice = Application.Devices.AddDevice( "MIDIKeyboard" )
End If
If TypeName(oDevice) <> "Nothing" Then
InspectObj oDevice.Option
End If
|