OK, you could do something like this:
Code:
Winsock1.SendData "3top " & Image3.Top
Then in the receiving side:
Code:
Winsock1.GetData mystring
Select Case Split(mystring, " ")(0)
Case "3top"
    Image3.Top = Split(mystring," ")(1)
Case 'other

End Select
Now, this is just a simple way to get started, if you have a large number of things to update, you will want a better way to handle it. You can probably send the actual code such as "Image3.Top = " & Image3.Top then parse it on the other end and run CallByName on it. But this is more involved and you should be fine with the method I gave above for now.