Imports System
Imports Microsoft.VisualBasic
Module BytesToUInt32Demo
Sub BAToUInt32( bytes( ) As Byte, index As Integer )
Dim value As UInt32 = BitConverter.ToUInt32( bytes, index )
Console.WriteLine( value )
End Sub
Sub Main( )
Dim byteArray as Byte( ) = { _
15, 0, 0, 0, 0, 16, 0, 255, 3, 0, _
0, 202, 154, 59, 255, 255, 255, 255, 127 }
BAToUInt32( byteArray, 1 )
End Sub
End Module