Imports System
Imports Microsoft.VisualBasic
Module GetBytesBoolDemo
Sub GetBytesBool( argument As Boolean )
Dim byteArray As Byte( ) = BitConverter.GetBytes( argument )
Console.WriteLine( BitConverter.ToString( byteArray ) )
End Sub
Sub Main( )
GetBytesBool( True )
End Sub
End Module