Private Const MCI_OPEN = &H803
Private Const MCI_OPEN_TYPE = &H2000&
Private Const MCI_OPEN_SHAREABLE = &H100&
Private Const MCI_SET = &H80D
Private Const MCI_SET_DOOR_OPEN = &H100&
Private Const MCI_CLOSE = &H804
 
Private Type MCI_OPEN_PARMS
    dwCallback As Long
    wDeviceID As Long
    lpstrDeviceType As String
    lpstrElementName As String
    lpstrAlias As String
End Type
 
Private Declare Function mciSendCommand Lib "winmm.dll"Alias _
      "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, _
      ByVal dwParam1 As Long, ByRef dwParam2 As Any) As Long<

Dim MCI_Open As MCI_OPEN_PARMS
 
lRet = mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE Or  _    MCI_OPEN_SHAREABLE, _
  openParams)