creating movements in VB is somehow simple...
Though the question is how to make them move in a networking environment. So far I have not receive any satisfactory feedback.

I used

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Shape1.Top = Shape1.Top + 100
Call mdlPackets.SendChat(KeyCode)
End If
End Sub

but how do I send it????