You can use this code to create class called People. It has three properties First Name, Last Name and Date of Birth
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
Public Class People Private strFirstName As String Private strLastName As String Private dtrDateOfBirth As Date Public Property FirstName() As String Get Return strFirstName End Get Set(value As String) strFirstName = value End Set End Property Public Property LastName() As String Get Return strLastName End Get Set(value As String) strLastName = value End Set End Property Public Property DateOfBirth() As String Get Return dtrDateOfBirth End Get Set(value As String) dtrDateOfBirth = value End Set End Property End Class |
Now you can create object using following code
|
1 2 3 4 5 6 7 8 9 10 11 |
Module Module1 Sub Main() Dim p As New People p.FirstName = "John" p.LastName = "Doe" p.DateOfBirth = Date.Parse("11-09-1980") End Sub End Module |
Here I am just creating the object from the class and assign values for the properties