2_A_VBNET

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim int1 As Integer = 50
        Dim int2 As Integer = 100

        Me.RichTextBox1.AppendText("EXAMPLE OF VALUE DATA TYPE (INT):" & Environment.NewLine)
        Me.RichTextBox1.AppendText("BEFORE:" & Environment.NewLine)
        Me.RichTextBox1.AppendText("Int1 = :" & int1 & Environment.NewLine)
        Me.RichTextBox1.AppendText("Int2 = :" & int2 & Environment.NewLine)
        Me.RichTextBox1.AppendText("---------------------" & Environment.NewLine)

        int1 = int2
        int2 = 200

        Me.RichTextBox1.AppendText("AFTER: ASSIGNMENT, THE VALUE IS COPIED:" & Environment.NewLine)
        Me.RichTextBox1.AppendText("Int1 = :" & int1 & Environment.NewLine)
        Me.RichTextBox1.AppendText("Int2 = :" & int2 & Environment.NewLine)
        Me.RichTextBox1.AppendText("---------------------" & Environment.NewLine & Environment.NewLine)

        Dim String1 As New Text.StringBuilder("This is String1")
        Dim String2 As New Text.StringBuilder("This is String2")

        Me.RichTextBox1.AppendText("EXAMPLE OF REFERENCE DATA TYPE (STRING):" & Environment.NewLine)
        Me.RichTextBox1.AppendText("BEFORE:" & Environment.NewLine)
        Me.RichTextBox1.AppendText("String1 = " & String1.ToString & Environment.NewLine)
        Me.RichTextBox1.AppendText("String2 = " & String2.ToString & Environment.NewLine)
        Me.RichTextBox1.AppendText("---------------------" & Environment.NewLine)

        String2 = String1
        String1.Replace("This is String1", "This is the NEW String1")

        Me.RichTextBox1.AppendText("AFTER: ASSIGNMENT, THE POINTER IS COPIED." & Environment.NewLine)
        Me.RichTextBox1.AppendText("String1 = " & String1.ToString & Environment.NewLine)
        Me.RichTextBox1.AppendText("String2 = " & String2.ToString & Environment.NewLine)


    End Sub

End Class