Registration Class

Public Class Registration

Private _intNumber As Integer
Private _intExpiryMonth As Integer

_intNumber=Number
_intExpiryMonth=ExpiryMonth

Public Function getRegNumber() As Integer
_intNumber=RegNumber
End Sub

Public Sub setRegNumber as