استرجاع صوره من قواعد بيانات اكسس

Public ProLogo As Bitmap
ProLogo = byteArray2Image(CType(dr("Co_Logo"), Byte()))

Public Function byteArray2Image(ByVal b As Byte()) As Bitmap
		Dim St As New IO.MemoryStream(b, True)
		If St.Length > 0 Then
			Dim image1 As New Bitmap(St)
			Return (image1) 'CType(image1, Image)
		Else
			Return (Nothing)
		End If

End Function

الأمر غير واضح أرجو التوضيح أكثر لأني لم أفهم شيء من الكود

ولا يهمك

هذا اللي كتبته انا اشرحه لك خطوة خطوة

' هذا السطر يعرف متغير من نوع بت ماب
Public ProLogo As Bitmap
' هذا لسطر يرجع قيمة الحقل اللي اسمه
'Co_Logo
'الي فيه مخزنه الصورة ويستدعي الدالة
'byteArray2Image

ProLogo = byteArray2Image(CType(dr("Co_Logo"), Byte()))

'هذه الدالة تقوم بالتحويل من بايت الى بت ماب وبالتالي يمكن اسناد القيمة للعنصر الذي سيظهرها
Public Function byteArray2Image(ByVal b As Byte()) As Bitmap
		Dim St As New IO.MemoryStream(b, True)
		If St.Length > 0 Then
			Dim image1 As New Bitmap(St)
			Return (image1) 'CType(image1, Image)
		Else
			Return (Nothing)
		End If

End Function