Imports System
Imports System.Collections
Public Class MainClass
Shared Sub Main()
Dim a As Integer = 3
Console.WriteLine("a is a value type is " & IsValueType(a))
End Sub
Shared Function IsValueType(ByVal thing As Object) As Boolean
Return (TypeOf (thing) Is System.ValueType)
End Function
End Class