Stardock will be closed for the week starting on Monday, June 29th and we will be returning on Monday, July 6th. We will be monitoring support tickets and forums during this time but expect delays in responses during this time.
WinCustomize Forums
'****** OPEN CD TRAY ****** Dim oWMP Dim colCDROMs, i 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 End If oWMP.close Set colCDROMs = Nothing Set oWMP = Nothing '****** OPEN & CLOSE CD TRAY ****** Dim oWMP Dim colCDROMs, i 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 For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If oWMP.close Set colCDROMs = Nothing Set oWMP = Nothing |
Welcome Guest! Please take the time to register with us.