Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim x As Integer = 981
Console.WriteLine(Convert.ToString(x, 2).PadLeft(16, "0"c))
x = Not x
Console.WriteLine(Convert.ToString(x, 2).PadLeft(16, "0"c))
End Sub
End Class
' run:
'
' 0000001111010101
' 11111111111111111111110000101010
'