Another way to eject a CD

This is another way to easily eject CD in only 5 line of code.

Private Sub Form_Load()
Call eject
End Sub

Public Sub eject()
‘code to eject cdrom ok
Dim owmp As Object
Dim colCDROMs
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
End Sub

Popularity: 1%

Written by Omar Abid. Read more great feeds at is source WEBSITE
no comments.
Read more articles on otherSoftware.

• [+] Digg: Feature this article
• [+] Del.icio.us: Bookmark this article
• [+] Furl: Bookmark this article

Related articles

• Windows 7 : Download Kaspersky Antivirus For Windows 7 (January 7th, 2009)
• Manual Removal of Backdoor.Win32.Rbot.genTrojan (January 6th, 2009)
• Manual Removal of W32.Randex.genTrojan (January 6th, 2009)
• Manual Removal of W32/Rbot Trojan (January 6th, 2009)
• Security experts warn against pirated Windows 7 (January 6th, 2009)