aki esta el code para abrir y cerrarlo nomas inventa tu eso del timer
Public Declare Function SendCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub EjectCD()
On Error Resume Next
SendCD "set CDAudio door open", returnstring, 127, 0
End Sub
Public Sub CloseCD()
On Error Resume Next
SendCD "set CDAudio door closed", returnstring, 127, 0
End Sub
'..............................................
Private Sub cmdCerrar_Click()
MousePointer = vbHourglass
CloseCD
End Sub
Private Sub cmdAbre_Click()
EjectCD
End Sub