Guest User

Untitled

a guest
Jul 12th, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.62 KB | None | 0 0
  1. Public Class Customer
  2.     Private cID, cName, cAddress, cCity, cState, cZipCode, cPhone, cEmail As String
  3.     Friend Property CustID As String
  4.         Get
  5.             Return cID
  6.         End Get
  7.         Set(ByVal value As String)
  8.             cID = value
  9.         End Set
  10.     End Property
  11.     Friend Property CustName As String
  12.         Get
  13.             Return cName
  14.         End Get
  15.         Set(ByVal value As String)
  16.             cName = value
  17.         End Set
  18.     End Property
  19.     Friend Property CustAddress As String
  20.         Get
  21.             Return cAddress
  22.         End Get
  23.         Set(ByVal value As String)
  24.             cAddress = value
  25.         End Set
  26.     End Property
  27.     Friend Property CustCity As String
  28.         Get
  29.             Return cCity
  30.         End Get
  31.         Set(ByVal value As String)
  32.             cCity = value
  33.         End Set
  34.     End Property
  35.     Friend Property CustState As String
  36.         Get
  37.             Return cState
  38.         End Get
  39.         Set(ByVal value As String)
  40.             cState = value
  41.         End Set
  42.     End Property
  43.     Friend Property CustZipCode As String
  44.         Get
  45.             Return cZipCode
  46.         End Get
  47.         Set(ByVal value As String)
  48.             cZipCode = value
  49.         End Set
  50.     End Property
  51.     Friend Property CustPhone As String
  52.         Get
  53.             Return cPhone
  54.         End Get
  55.         Set(ByVal value As String)
  56.             cPhone = value
  57.         End Set
  58.     End Property
  59.     Friend Property CustEmail As String
  60.         Get
  61.             Return cEmail
  62.         End Get
  63.         Set(ByVal value As String)
  64.             cEmail = value
  65.         End Set
  66.     End Property
  67.  
  68.     Public Sub New()
  69.     End Sub
  70. End Class
Add Comment
Please, Sign In to add comment