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"   End If   'Als PNG speichern   If JRStegano1.SaveAsPNG(CD1.FileName, True) = False Then   MsgBox "Error while saving"   End If |