'propriedades do objeto que serão usados para gravar as fotos
    Public Property IdFunc As Integer
    Public Property CPF As String
    Public Property Foto As Byte()
'=====================================

If Not (PctFotoFunc.Image Is Nothing) Then
                Dim img = New Bitmap(PctFotoFunc.Image)
                Dim fileName As String = Path.GetTempFileName()

                Dim CAMINHO As String
                CAMINHO = fileName
                If File.Exists(CAMINHO) Then
                    File.Delete(CAMINHO)
                End If
                img.Save(CAMINHO, System.Drawing.Imaging.ImageFormat.Jpeg)

                Dim myStream As FileStream = New FileStream(CAMINHO, FileMode.Open, FileAccess.Read)
                Dim myImageBuffer(myStream.Length) As Byte
                myStream.Read(myImageBuffer, 0, Convert.ToInt32(myStream.Length))
                myStream.Close()
                FTO.Foto = myImageBuffer              
            Else
                FTO.Foto = Nothing
            End If