Imports System
Imports Microsoft.VisualBasic
Module BytesToBoolDemo
Sub BAToBool( bytes( ) As Byte, index As Integer )
Dim value As Boolean = BitConverter.ToBoolean( bytes, index )
Console.WriteLine( value )
End Sub
Sub Main( )
Dim byteArray as Byte( ) = { 0, 1, 2, 4, 8, 16, 32, 64, 128, 255 }
BAToBool( byteArray, 0 )
End Sub
End Module