Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long ' Cdroomu açıp kapayabilmeniz için gereken windows API si

Private Sub Form_Load() ' Form_load() komutu ile formun yani programımımız ilk açılışında yapılacak işlemleri yazıyoruz.
Command1.Caption = "Cdroomu Aç" ' Command1 Butonunun İsmini Cdroomu Aç olarak değiştiriyoruz
Command2.Caption = "Cdroomu Kapat" ' Command2 Butonunun İsmini Cdroomu Kapat olarak değiştiriyoruz
End Sub

Private Sub Command1_Click() ' Command1_Click() Komutuyla Command1 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz
mciExecute ("Set CDAudio door Open") ' Cdroomu açma kodumuz
End Sub

Private Sub Command2_Click() ' Command2_Click() Komutuyla Command2 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz
mciExecute ("Set CDAudio door closed") ' Cdroomu kapatma kodumuz
End Sub

Private Sub Form_Unload(Cancel As Integer) ' Form_Unload() komutu ile formun yani programımımız kapatılırken yapılacak işlemleri yazıyoruz.
msgbox () ' Bu Komutlada program kapatılırken kullanıcıya mesaj verdiriyoruz.
End Sub