End Function Public Sub ChangeEmpData() Dim objEmp As CEmp For Each objEmp In ArrEmp objEmp.FName = "FirstName" objEmp.LName = "LastName" Next End Sub End Class Public Class CEmp Private mstrFName As String Private mstrLName As String Public Property FName() As String Get FName = mstrFName End Get Set(ByVal Value As String) mstrFName = Value End Set End Property Public Property LName() As String Get LName = mstrLName End Get Set(ByVal Value As String) | 
