ผมเพิ่งศึกษาvb ไปเจอcode นี้ไม่ค่อยเข้าใจเลยอยากให้ช่วยอธิบายหน่อยครับ
ตามนี้ครับ
    Public Function IsBitSet(ByVal InByte As Byte, ByVal Bit As Byte) As Boolean
         IsBitSet = ((InByte And (2 ^ Bit)) > 0)
    End Function