[This is preliminary documentation and subject to change.]
The DeviceRelease method causes the video server to attempt to release all devices.
object.DeviceRelease(lPriority, pps)
Windows NT: Unsupported.
Windows: Requires Windows 98.
Windows CE: Unsupported.
Header: Declared in vidsvr.odl.
Import Library: Included as a resource in vid.ocx.
Unicode: Yes.
BPCSuspended, Suspending the Video Server
The following example uses DeviceRelease to request that the video server release all devices.
Dim susp As BPCSuspend
Set susp = New BPCSuspend
Dim suspended As BPCSuspended
'Attempt to suspend the video server
susp.DeviceRelease 0, suspended