Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button4.Click
        ' Datei auslesen und versenden!
        Dim path As String = System.IO.Path.Combine("F:\Temp\", "atomzeit.exe")
        Dim pic As Byte() = IO.File.ReadAllBytes(path)
        Winsock1.SendenClient("datei#" & Convert.ToBase64String(pic))
    End Sub

Private Sub Winsock1_DateiEmpfangServer(dateiempfang As String) Handles _
  Winsock1.DateiEmpfangServer
        Me.TextBox3.Text = dateiempfang
 
        ' Datei Empfangen
        Static file_buffer As String
        file_buffer += Me.TextBox3.Text
        Label4.Text = "Eine Datei wird übertragen...."
        Dim b() As Byte = Convert.FromBase64String(file_buffer.Replace( _
          "datei#", ""))
        Try
            IO.File.WriteAllBytes(Application.StartupPath & _
              "\Downloads\testNEU1.exe", b)
            Label4.Text = "Datei erfolgreich übertragen...."
        Catch
            Label4.Text = "Fehler beim übertragen der Datei...."
        End Try
 
End Sub