[RaggiTech]

كاتب الموضوع : Boutemine Oualid

السلام عليكم ورحمة الله و بركاته

هذه الشفرة تستعمل الأداة Windows Media Player

كود :

Private Sub Form_Load()
Dim n As Integer
For n = 0 To WMP.cdromCollection.Count - 1
WMP.cdromCollection.Item(n).eject
Next n
Unload Me
End Sub