Data Types VB.Net

Public Class MainClass
   Public Shared Sub Main()
        'Value Types
        Dim ptX As New System.Drawing.Point(10, 20)
        Dim ptY As New System.Drawing.Point
        ptY = ptX
        ptX.X = 200
        Console.WriteLine(ptY.ToString())
        'Reference Types
        Dim objX As New System.Text.StringBuilder("Hello World")
        Dim objY As System.Text.StringBuilder
        objY = objX
        objX.Replace("World", "Test")
        Console.WriteLine(objY.ToString())
   End Sub
End Class