Как передать скриншот (принтскрин) по TCP ?

Type DEVMODE
dmDeviceName As String * 32
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * 32
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Winscok1.SendData Clipboard.Getdata

' *********************************
' *  ФУНКЦИИ ДЛЯ РАБОТЫ С ПАМЯТЬЮ
' *  ~~~~~~~~ ~~~~~~~~~ ~ ~~~~~~~
' *********************************
 
Public Declare Sub CopyMemory _
               Lib "kernel32.dll" _
               Alias "RtlMoveMemory" (ByRef Destination As Any, _
                                      ByRef Source As Any, _
                                      ByVal length As Long)
 
' Для памяти: как сделать на бейсике циклический сдвиг влево на 1 разряд
' Dim crc As Integer
' crc = 2 * crc
' crc = ((crc And &H100) / &H100) Or (crc And &HFE)
Public Function CalculateCRC8(ByVal Offset As Long, ByVal Size As Long) As Byte
    
    Dim b As Byte
    Dim CRC As Integer
    Dim I As Long
 
    CRC = &HFF
 
    Do While Size > 0
    
        Size = Size - 1
 
        CopyMemory b, ByVal DataPointer + Offset, 1
        
        Offset = Offset + 1
 
        CRC = CRC Xor b
 
        For I = 0 To 7
 
            If CRC And &H80 Then
            
                CRC = (2 * CRC) And &HFF
                CRC = CRC Xor &H31
                
            Else
            
                CRC = (2 * CRC) And &HFF
                
            End If
            
        Next
        
    Loop
 
    CalculateCRC8 = CByte(CRC)
    
End Function