JR-Stegano Activex

Beispiel

ChecRes

'Prüfe ob Auflösung des Systems auf Truecolor steht

'An V1.1 liefert CHECKRES immer TRUE

If JRStegano1.ChecRes(xcolor$) = False Then

  MsgBox "Ihr System ist auf " + xcolor$ + " eingestellt." + " Zur Steganografie mit JR-Stegano müssen Sie Ihr System auf Truecolor stellen"

  End

End If