Type
Property
and press the Tab key.
It will automatically generate:
Private newPropertyValue As String
Public Property NewProperty() As String
Get
Return newPropertyValue
End Get
Set(ByVal value As String)
newPropertyValue = value
End Set
End Property
for you, and be ready to set the type and name for you.