Private 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
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim lRet As Long, sRet As String * 127
' Alt+F3 Abre unidad CD
If KeyCode = vbKeyF3 And Shift = vbAltMask Then
lRet = mciSendString("set CDAudio door open", sRet, 127, 0)
End If
' Alt+F2 Cierra unidad CD
If KeyCode = vbKeyF2 And Shift = vbAltMask Then
lRet = mciSendString("set CDAudio door closed", sRet, 127, 0)
End If
End Sub
La propiedad KeyPreview del Form debe estar a True
Saludos tocayo
