Trasferimento file usando Winsock.ocx ?

[[-Blade-]]

Come posso fare che premendo sul "bottone Command1" si apre la finestra per sciegliere il file das disco fisso e poi inviarlo ad un specifico IP usano componente winsock ?
ho fatto due parti una Client che si connete e l altra Server che fa
Listen su un port


rivate Sub Command1_Click()
If Command1.Caption = "Connect" Then
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = 1112
Winsock1.Connect
Command1.Caption = "Disconnect"
Else
Winsock1.close
Command1.Caption = "Connect"
End If

E per accetare la conessione ho fatto cosi

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Spero che qualcuno melo puo spiegare

[[-Blade-]]

Che ce non Risponde nessuno ? sniff