Private Sub wsnClient_DataArrival(ByVal bytesTotal As Long)
  Dim ImagePack As New PropertyBag
  Dim RecievedData As Variant
  Dim oTemp As Object
 
  ' Bei Fehler Sendevorgang wiederholen
  'On Error GoTo ImageError
'On Error Resume Next
 
wsnClient.GetData RecievedData
 
If RecievedData = vbString Then
 
    If RecievedData = "DisconnectAccept" Then
    wsnClient.Close
    End If
 
Else
 
  ' Temporäre Picturebox erstellen
  Set oTemp = Me.Controls.Add("VB.PictureBox", "TemporaryPictureBox")
  With oTemp
    .AutoRedraw = True
    .AutoSize = True
     .BorderStyle = 0
   End With
 
  ' Inhalt ins PeopertyBag der PictureBox speichern
  With ImagePack
    ' Inhalt Laden: Bei Fehler durch falsche Daten wird
    ' der Snedevorgang wiederholt
    .Contents = RecievedData
 
    ' Bild aus PropertyBag laden...
    oTemp.Picture = .ReadProperty("Picture", Nothing)
 
    ' ...und in der echten PictureBox anzeigen
    frmScreenshot.picScreenshot.PaintPicture oTemp.Picture, .ReadProperty("X", _
      0), .ReadProperty("Y", 0)
 
    ' temporäre PictureBox wieder entfernen
    Me.Controls.Remove "TemporaryPictureBox"
 
    ' Fortschritt anzeigen
  '  ProgressBar2.Value = .ReadProperty("Percent", 0)
  End With
 
  ' Rückmeldung: OK (autom. Anfordern des nächsten Bildteils)
  wsnClient.SendData "OK"
 
End If
  Exit Sub
 
ImageError:
  ' Rückgabewert "Fehler": Sendevorgang wiederholen
  wsnClient.SendData "ERROR"
End Sub