This example VB project illustrates how to create a Self-Decrypting Archive in Visual Basic using the CipherLockSDA DLL.

Code:

Option Explicit
Private Sub Command1_Click()
  Dim Status As Long
  Dim myArch As Archive
  Set myArch = New Archive
  On Error GoTo MyErrHndlr
'
' Add one or more input files to the SDA
  myArch.AddInputFile (txtInFile1.Text)
  myArch.AddInputFile (txtInFile2.Text)
  myArch.AddInputFile (txtInFile3.Text)
'
' [Optional] Select a file to be executed when the SDA is decrypted.
' Note 1: only one file in an SDA can be 'ExecuteAfterDecrypt';
' if two or more are set, the last file named will be executed.
' Note 2: a file must be added before being named as 'ExecuteAfterDecrypt'
'
  myArch.ExecuteAfterDecrypt (txtInFile1.Text)
  myArch.ExecuteAfterDecrypt (txtInFile2.Text)
'
' Select the encryption algorithm to be used; triple_DES is default.
  myArch.Encryption = triple_DES
'
' Select data compression if desired; no compression is default.
  myArch.CompressData = True
'
' Select a password or passphrase (used to generate encryption key)
  myArch.Password = txtPasswd.Text
'
' Set the name for the SDA output file
  myArch.OutputFileName = txtOutFile.Text
'
' Make the SDA...
  myArch.CreateArchive
Exit Sub

MyErrHndlr:
MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
End Sub