sending a picture trough WINSOCK

[Ultimasnake]

ok i want a program to send a screenshot of the desktop to a other computer within my network, i can astablish the connection get the screenshot and can send it.. but at arival it fails to work

i used this to send the picture :

Private Sub Command2_Click()
 Winsock1.SendData Picture1.Picture
End Sub

and to recieve it i use:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim strBuff As String
   Winsock1.GetData strBuff, vbString
   Picture1.Picture = strBuff
End Sub

but i gives this error : Compile error: Type mismatch