Ciao, piccolo esempio autoesplicativo...almeno spero..
codice:
Public Class Anagrafica
    private p_Cognome as string
    private p_Nome as string

   Public Property Cognome() As String
      Get
         Return p_Cognome
      End Get
      Set(ByVal Value As String)
         p_Cognome = Value
      End Set
   End Property

   Public Property Nome() As String
      Get
         Return p_Nome
      End Get
      Set(ByVal Value As String)
         p_Nome = Value
      End Set
   End Property
End Class
In pratica tu puoi usare Anagrafica.Cognome per impostare il cognome (Set) o per leggerlo (Get).
codice:
dim myAnag as new Anagrafica
dim cognome as string

myAnag.Cognome="ROSSI"
cognome=myAnag.Cognome