Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim n As Integer = 2664
Console.WriteLine(Convert.ToString(n, 2))
n = n And (n - 1)
Console.WriteLine(Convert.ToString(n, 2))
End Sub
End Class
' run:
'
' 101001101000
' 101001100000
'