Lukke cd-rom

[ti-guru]

Har følgende kode i VB:

 

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

End If

 

Greit nok, denne kodesnutten åpner cd-rom'ene dine. Men hvordan er den motsatte koden? hvordan får man cd-rom'en til å lukke seg?

[Rep]

Har skrevet et kode eksempel for dette her: http://forum.hardware.no/viewtopic.php?t=4...d24b1c8a779ce3b

[ti-guru]

hmmm... fikk ikke dette helt til å virke... (er riktignok en grønnskolling) er det ikke mulig å endre på den koden jeg har for å få den ti lå gå motsatt vei?