Pues a ver, si lo que quieres es mandar datos teniendo el control winsock en el form1, pues tienes 2 opciones que yo sepa

a) Form1.Winsock.sendData (loquesea) ' Directamente desde el form2

b) (A mi me gusta más)

en el form1

Public Function EnviarDatos(Byval datos as string)
  winsock.sendData (datos)
End function

En el form2

call enviardatos(loquesea)


Eso para enviar, para recibir datos, pues por ejemplo, si en el form1, que es donde tienes que tener el evento data arraival, tal como te llegan los datos, dependiendo de los primeros carácteres, pues lo derivas al form 2, o sea, y es una de las maneras de hacerlo...

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
 winsock.getData datos
 if left(datos, 3= "XXX" then
         tamDatos = Len(datos)
         datos = right(datos,(tamDatos-3) ' para no pasar las XXX a la funcion
         call loquesea(datos)
end sub

y en el form2

Public Function loquesea (byval datos as string)
' y aqui haces lo que te interese con los datos
End function