<WebMethod()> Public Function Bild(ByVal Name As String, ByVal Breite As _
      Integer) As Byte()
        Dim Buffer As Byte()
        Dim fs As New IO.MemoryStream
        Dim timg As Drawing.Image = Image.FromFile("C:\\img\" & Name.PadLeft(5, _
          "0") & ".jpg")
        Dim tint As Integer = (timg.PhysicalDimension.Height * Breite) / _
        timg.PhysicalDimension.Width
        timg = timg.GetThumbnailImage(Breite, tint, Nothing, Nothing)
        timg.Save(fs, Imaging.ImageFormat.Jpeg)
 
        ReDim Buffer(fs.Length)
        fs.Position = 0
        fs.Read(Buffer, 0, fs.Length)
        fs.Close()
 
        Return Buffer
    End Function

Try
            Dim tstr As New IO.MemoryStream
            Dim buffer As Byte() = Internet.Bild(tRow(0).Item("ID"), _
              PictureBox1.Width)
            tstr.Write(buffer, 0, buffer.Length)
            PictureBox1.Image = Image.FromStream(tstr)
        Catch ex As Exception
        End Try