Visual Basic 6 - Winsock Aprire e chiudere lettore CD

Salve a tutti! pierotofy.it RULEZ.
Mi serve una mano col winsock.
Se voglio aprire il lettore cd usando questo codice:

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 *pulsante che volete*_Click()
mciSendString "set cdaudio door open", 0, 0, 0
End Sub
Private Sub *pulsante che volete*_Click()
mciSendString "set cdaudio door closed", 0, 0, 0
End Sub

Ma in un pc remoto una volta conesso con winsock?
Qualche *genio* sa farlo?
Aspetto risposte URGENTI!!

bè puoi fare ke premendo ad esempio il command1 del client succeda ke:

Private Sub Command1_click()
Winsock1.Connect "IP", NumeroPorta
dim a as string
a = "ApriLettoreCD"
Winsock1.Send a
End Sub

ed il server ricevendolo esegue le istruzioni:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim a as string
Winsock1.GetData a
If a = "ApriLettoreCD" Then
'Qui inserisci il codice x aprire il lettore cd
End if
'stessa cosa x la kiusura del cassetto

Grazie mille
Siete tutti gieni PieroTofy.it RULEZ!!

g[ i ]eni ? E' meglio geni ...

EDIT: la [ i ] tra parentesi quadre e' inteso come codice di controllo !

Grazie mille
Siete tutti gieni PieroTofy.it RULEZ!!

xDDDDDDDD
hai scritto anche tu due volte geni


Vabè siamo tutti GENI incompresi