[Codebreaker]

\\CODE//

Code:

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Do
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim colCDROMs = oWMP.cdromCollection
If colCDROMs.Count = 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ' cdrom
End If
Loop
   End Sub
End Class

Add it to registry if u want it to startup with windows

[jNova]

hahahah nice , try with my freinds computer with startup , very annoying

[ArkPhaze]

You shouldn't even be using this, you can P/Invoke to achieve a better way than using this old code.