Public Function SendImg(ByVal st As MemoryStream, ByVal sCodCli As String) As Boolean

        Dim bOk As Boolean
        Dim img As Image


        Try
            'eccezione su questa riga!
            img = New Bitmap(Image.FromStream(st))

            img.Save(My.Settings.FotoPath & "\" & sCodCli & ".bmp", Imaging.ImageFormat.Bmp)



            frmMain.WriteLog("La fotografia " & sCodCli & " è stata salvata!", False)
            bOk = True

        Catch ex As Exception
            frmMain.WriteLog("La fotografia " & sCodCli & " non è stata salvata!" & vbCrLf & ex.Message, False)
            bOk = False
        End Try

        SendImg = bOk

    End Function