Screenshot über Winsock

Hallo zusammen

Ich möchte einen Screenshot machen, und über winsock senden.

Doch ich brings nicht hin.
Kann mir da jemand helfen?
ein Teil der Code Struktur:

client

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata1, strdata2, strdata3, strdata4 As String
Winsock1.GetData strdata1, vbString
Label4.Caption = „STATUS: READY!“
End Sub

Private Sub SizeBitmapToPicBox(ByVal vpicQuelle As PictureBox, _
ByVal vpicZiel As PictureBox)
Dim sngRatio As Single
Dim sngWidth As Single
Dim sngHeight As Single

vpicQuelle.Picture = Clipboard.GetData(vbCFBitmap)
vpicZiel.Cls
sngRatio = vpicQuelle.ScaleWidth / vpicQuelle.ScaleHeight

sngWidth = vpicZiel.ScaleWidth
sngHeight = vpicZiel.ScaleHeight
If (sngWidth / sngHeight) > sngRatio Then
sngWidth = sngRatio * sngHeight
Else
sngHeight = sngWidth / sngRatio
End If
vpicZiel.PaintPicture vpicQuelle.Picture, _
(vpicZiel.ScaleWidth - sngWidth) / 2, _
(vpicZiel.ScaleHeight - sngHeight) / 2, _
sngWidth, sngHeight
'vpicZiel.PaintPicture vpicQuelle.Picture, 0, 0, sngWidth, sngHeight

End Sub

server

eine if abfrage
If strData = „screen“ Then
screen
End If

Private Sub screen()
Clipboard.Clear
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
DoEvents

Winsock1.SendData SizeBitmapToPicBox picQuelle, picZiel
End Sub

Bin ich da auf der richtigen Spur?