codice:
Protected _myhashkey As String = "User"
Public writeonly Property MyHashKey As String
  Set
    if Not value is nothing then
      _myhashkey = value
    end if
  End Set
End Property
HTH