Imports System
Class Sample
Public Shared Sub Main()
Dim byteVal1 As Byte = &H7F
Dim byteVal2 As Byte = 127
Dim objectVal3 As Object = byteVal2
Console.WriteLine("byteVal1 = {0}, byteVal2 = {1}, objectVal3 = {2}" & vbCrLf,byteVal1, byteVal2, objectVal3)
Console.WriteLine("byteVal1 equals byteVal2?: {0}", byteVal1.Equals(byteVal2))
Console.WriteLine("byteVal1 equals objectVal3?: {0}", byteVal1.Equals(objectVal3))
End Sub
End Class