Можно ли ускорить mciSendString?

[kibernetics]

Всем привет!
Может кто знает как ускорить закрытие лотков всех сд-ромов в системе?
Делаю так:

Код: Выделить всё

    For i = 0 To lstDrives.ListCount - 1
       
        If lstDrives.Selected(i) Then
            mciSendString "Open " & lstDrives.List(i) & ": Alias " & "Drive" & lstDrives.List(i) & " Type CDAudio", 0&, 0&, 0&      'Once set, is applied to system until restart
            Select Case Index
                Case 0
                    mciSendString "set Drive" & lstDrives.List(i) & " door open", 0&, 0&, 0&
                Case 1
                    mciSendString "set Drive" & lstDrives.List(i) & " door closed", 0&, 0&, 0&
            End Select
        End If
    Next

но, пока каждый привод закрывается:

Код: Выделить всё

mciSendString "set Drive" & lstDrives.List(i) & " door closed", 0&, 0&, 0&

система "подвисает".

Может както можно одновременно чтоли закрыть все привода?