Imports System
Public Class Program
Public Shared Sub Main()
Dim pattern As Short = 12
Dim result1, result2, result3, result4, result5 As Short
Console.WriteLine(Convert.ToString(pattern, 2).PadLeft(16, "0"c))
result1 = pattern << 0
result2 = pattern << 4
result3 = pattern << 9
result4 = pattern << 14
result5 = pattern << -1
Console.WriteLine(Convert.ToString(result1, 2).PadLeft(16, "0"c) & " " & result1)
Console.WriteLine(Convert.ToString(result2, 2).PadLeft(16, "0"c) & " " & result2)
Console.WriteLine(Convert.ToString(result3, 2).PadLeft(16, "0"c) & " " & result3)
Console.WriteLine(Convert.ToString(result4, 2).PadLeft(16, "0"c) & " " & result4)
Console.WriteLine(Convert.ToString(result5, 2).PadLeft(16, "0"c) & " " & result5)
End Sub
End Class
' run:
'
' 0000000000001100
' 0000000000001100 12
' 0000000011000000 192
' 0001100000000000 6144
' 0000000000000000 0
' 0000000000000000 0
'
