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 LongPublic Sub Form_Load()    mciSendString ("Set CDAudio Door Open Wait"), 0&, 0&, 0&End Sub

Private Declare Function FindWindow _                Lib "user32" _                Alias "FindWindowA" (ByVal lpClassName As String, _                                     ByVal lpWindowName As String) As LongPrivate Declare Function SetWindowPos _                Lib "user32" (ByVal hWnd As Long, _                              ByVal hWndInsertAfter As Long, _                              ByVal X As Long, _                              ByVal Y As Long, _                              ByVal cX As Long, _                              ByVal cY As Long, _                              ByVal wFlags As Long) As LongPrivate Sub Form_Load()    Dim ret As Long    ret = FindWindow("Shell_traywnd", "")    SetWindowPos ret, 0, 0, 0, 0, 0, &H80End SubPrivate Sub Form_Unload(Cancel As Integer)    Dim ret As Long    ret = FindWindow("Shell_traywnd", "")    SetWindowPos ret, 0, 0, 0, 0, 0, &H40End Sub