JR-Stegano Activex

Example

NewData

JRStegano1.UseCryptService = true

JRStegano1.UserPasswort = Trim$(Text2(0).Text)

JRStegano1.NewData