デバイスの下にネストされているオプションPropertyを戻します。オプションを持たないデバイスドライバも存在します。オプションプロパティは、デバイス記述ファイルに指定されています。
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
|