Imports System
Public Class Hogera
Public Shared Sub Main()
Dim a As Byte = &H12
Dim b As Byte = &H34
Dim c As UShort = &H0000
c = c Or CType(a, UShort) << 8
c = c Or CType(b, UShort) << 0
System.Console.WriteLine("c is &H" + Hex$(c))
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBIb2dlcmEKICAgIFB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQogICAgICAgIERpbSBhIEFzIEJ5dGUgICA9ICZIMTIKICAgICAgICBEaW0gYiBBcyBCeXRlICAgPSAmSDM0CiAgICAgICAgRGltIGMgQXMgVVNob3J0ID0gJkgwMDAwCgogICAgICAgIGMgPSBjIE9yIENUeXBlKGEsIFVTaG9ydCkgPDwgOAogICAgICAgIGMgPSBjIE9yIENUeXBlKGIsIFVTaG9ydCkgPDwgMAogICAgICAgIFN5c3RlbS5Db25zb2xlLldyaXRlTGluZSgiYyBpcyAmSCIgKyBIZXgkKGMpKQogICAgRW5kIFN1YgpFbmQgQ2xhc3MK