[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.