Binaryworld - How to Open and Close CD gate ... [ VB -> Files & Folder ]

API Declarations

Option Explicit

'Declare
Declare Function mciSendString Lib "winmm.dll" Alias _
  "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
  lpstrReturnString As String, ByVal uReturnLength As Long, _
  ByVal hwndCallback As Long) As Long

Module

Click here to copy the following block

'Module
Public Sub OpenCD()
  Dim res As Long, returnstring As String * 127
  res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Public Sub CloseCD()
  Dim res As Long, returnstring As String * 127
  res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Usage

Click here to copy the following block

'Usage
Private Sub Command1_Click()
OpenCD
End Sub

Private Sub Command2_Click()
CloseCD
End Sub