Public Class Customer
    Private strName As String
    Private intAge As Integer

    Public Sub New(name As String, age As Integer)
        strName = name
        intAge = age
    End Sub

    Public Sub Add(User As Customer)
        User.strName = "No.1"
        User.intAge = 30
        User.Show()
    End Sub

    Private Sub Show()
        MessageBox.Show(strName & " " & intAge.ToString)
    End Sub

End Class