[Mohamed20]

كود :

   Public Delegate Sub MessageHandlerDelegate(pPacket As Packet, pClient As Client)

   Public Structure Packet
       Public id As UShort
       Public size As UInteger
       Public data As Byte()
   End Structure

كود :

 Private Sub Read(pPacket As Packet, pClient As Client)

  Using rd As New BinaryReader(pPacket.data)

                    Dim Count As Int32 = rd.ReadInt32
MsgBox(Count)
End using

يوجد خطا فى   Using rd As New BinaryReader(pPacket.data)

Severity Code Description Project File Line Suppression State

Error BC30311 Value of type 'Byte()' cannot be converted to 'Stream'