now it is ok with this solution.
Try
Dim imageData As Byte() = DirectCast(gdCompany.CurrentRow.Cells(15).Value, Byte())
Dim newImage As Image
Using ms As New MemoryStream(imageData, 0, imageData.Length)
ms.Write(imageData, 0, imageData.Length)
newImage = Image.FromStream(ms, True)
End Using
picCompanyLogo.Image = newImage
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try