VB.NET преобразовать int32 в булев

    Dim MyShort As uShort = 32
    Dim oByteArray As New System.Collections.BitArray(System.BitConverter.GetBytes(MyShort))
Cooperative Copperhead