Dim Pieces As ULong = …
While Pieces <> 0
    Dim PieceSource As SByte = BitOperations.TrailingZeroCount(Pieces)
    Dim BitboardPiece As ULong = 1UL << PieceSource
    ‘Processing whether the information is useful
    Pieces -= BitboardPiece
End While