JR-Stegano Activex

Example

ChecRes

'Check whether dissolution of the system on Truecolor is.

'with ver1.1 this function will be no longer needed

If JRStegano1.ChecRes(xcolor$) = False Then

  MsgBox "your system is adjusted to" + xcolor$ + ". To the Steganografie with JR Stegano you must place your system on Truecolor"

  End

End If