problemas con select urgente.

cadrogui
03 de Diciembre del 2003
hola estoy desarrollando una aplicacion cliente servidor en visual basic 6 y no se como abrir el cd del pc que tiene el servidor de forma remota, lo estay tratando asi:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos

Select Case Trim$(Mid$(Text2.Text$, 1, 7))
Case "abrir": RetVal = mciSendString("set CDAudio door open", Param1$, 127, 0)
End Select

End Sub
pero como puedo hacer para que cuando mande la instruccion abrir se abra...el cdrom?

salu2