'if you a developer license acquired, can you directly enter the serial number and reg-code. 'Their users need then no user license.

'if you (the developer) a user license acquired only

'Their users need then a user license.  

'in this demo the user can request and enter its own serial number and reg-code.

jrsteganosernum = GetSetting(app.name, "Start", "Serialnumber", 0)

jrsteganoregcode = GetSetting(app.name, "Start", "Regnumber", 0)

JRStegano1.SerialNumber = jrsteganosernum

JRStegano1.RegCode = jrsteganoregcode

License information tests

' asks starting from whether and which license is available

' was the serial number and reg-code correctly?

xright = JRStegano1.GetUserRight

Select Case xright

Case 1

  mycap$ = mycap$ + " (User license)"

Case 2

  mycap$ = mycap$ + " (Developer license)"

Case Else

  mycap$ = mycap$ + " (Lincense not found)"

End Select

Caption = mycap$