JR-Stegano Activex

Example

Image

'save as bitmap

  With CD1

    .InitDir = App.Path

    .FileName = "" 'Clear the filename

    .CancelError = True 'Gives an error if cancel is pressed

    .DialogTitle = "save picture"

    .Filter = "All Files (*.bmp)|*.bmp"

    On Error Resume Next

    .Action = 2

  End With

  If Err <> 0 Then Exit Sub

  If JRStegano1.SaveAsBMP(CD1.FileName, True) = False Then

    MsgBox "Error while saving"