Imports System
Imports System.Runtime.Remoting.Contexts
Imports Microsoft.VisualBasic
Public Class MyContextBoundClass
Inherits ContextBoundObject
Public myString As String = "test."
End Class
Public Class MyTypeDemoClass
Public Shared Sub Main()
Try
Console.WriteLine("Is {0} a primitive data type? {1}.", GetType(Integer).Name, GetType(Integer).IsPrimitive.ToString())
Console.WriteLine("Is {0} a primitive data type? {1}.", GetType(String).Name, GetType(String).IsPrimitive.ToString())
Catch e As Exception
Console.WriteLine("An exception occurred: " + e.Message.ToString())
End Try
End Sub
End Class