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