Shared Function Register(Name As string, ExpirationDate As string, SerialNumber as string, optional CopyNumber As Integer = 1) As Boolean