enviar datos de una lista con winsock

[PACO_TORG]

hola amigos.. estoy de nuevo por aqui..

tengo una duda

estoy tratando de enviar datos de una pc cliente a una pc servidor..

bueno, en la pc cliente realice un formulario con un listobox que me muestra las ventanas activas por medio de una api, asi ...

Option Explicit

Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long


Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
'Esta es la función Api que busca las ventanas y retorna su handle o Hwnd
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wFlag As Long) As Long


Private Const GW_HWNDFIRST = 0&
Private Const GW_HWNDNEXT = 2&
Private Const GW_CHILD = 5&


Private Sub Listar()
Dim buf As Long, handle As Long, titulo As String, lenT As Long, ret As Long

List1.Clear
GW_HWNDFIRST

handle = GetWindow(hWnd, GW_HWNDFIRST)



Do While handle <> 0

If IsWindowVisible(handle) Then

lenT = GetWindowTextLength(handle)
'si es el número anterior es mayor a 0
If lenT > 0 Then
titulo = String$(lenT, 0)


ret = GetWindowText(handle, titulo, lenT + 1)
titulo$ = Left$(titulo, ret)

List1.AddItem titulo$
End If
End If
GW_HWNDNEXT
handle = GetWindow(handle, GW_HWNDNEXT)
Loop
End Sub

Private Sub Command1_Click()
'llamo a la función Listar
Listar
End Sub

Y LO TRATO DE ENVIAR ASI, PERO ME GENERA EL ERRO DE QUE ESPERABA UNA FUNCION O UNA VARIABLE... ALGUIEN SABE COMO PUEDO MANDAR EL CONTENIDO DEL LISTBOX A LA PC SERVIDOR??



Private Sub cmdEnviar_Click()
Dim Enviar As String


Enviar = Listar
Winsock1.SendData Enviar

End sub

claro todo esta bien conectado con la pc servidor, puerto, y demas... ya que si puedo enviar textos escritos..
bueno, espero me puedan ayudar con esta duda