Buka Tutup CD-Rom dengan Visual Basic

Nie cara buat aplikasi buka tutup CD-Rom..!  Lainnya buat sendiri..,

Buatlah sebuah Project dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer ke dalam Form tersebut.dengan ketentuan:

Enabled=True

Interval=1000 (terserah kalian, lebih kecil angkanya lebih cepat buka CD-Rom nya)

Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object

Dim x As Integer

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False

Me.Hide

Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection

Lalu di bagian 'Timer1_Timer' ketikkan :

For x= 0 To CD.Count - 1

CD.Item(x).Eject

Next