[اسامه الهرماوي]

السلام عليكم...
أولا:بدل اسم الاداة نكتب مكانها ArrImage
ثانيا: كلمة "بطاقة" يتم وضع مكانها اسم picturebox المراد الحفظ منه.

كود :

Dim ArrImage() As Byte
           Dim NmImage As String
           Dim Ms As New IO.MemoryStream
           If Not IsNothing(بطاقة.Image) Then
               بطاقة.Image.Save(Ms, بطاقة.Image.RawFormat)
               ArrImage = Ms.GetBuffer
               NmImage = "?"
           Else
               ArrImage = Nothing
               NmImage = "NULL"
           End If