Private Sub Form_Load()
    ' This sample uses 2 SftDirectory controls
    ' SftDirectory1 allows single selection only
    SftDirectory1.MultiSelect = selectSftDirectorySingle
    ' SftDirectory2 allows multiple selection
    SftDirectory2.MultiSelect = selectSftDirectoryMultiple
End Sub

' This is a button event handler
Private Sub Command1_Click()
    ' Select one file/folder (in a single selection control)
    SftDirectory1.FolderList(1).Selected = True
    ' Select a few files/folders (in a multiple selection control)
    SftDirectory2.FolderList(1).Selected = True
    SftDirectory2.FolderList(3).Selected = True
    SftDirectory2.FolderList(5).Selected = True
End Sub

' This is another button event handler
Private Sub Command2_Click()
    ' Show the selected file/folder (in a single selection control)
    Dim F As SftDirectoryFolder
    Set F = SftDirectory1.Selection(0)
    If Not F Is Nothing Then
        MsgBox ("""" & F.Name & """ is selected (in the single selection control).")
    End If
    ' Show the selected files/folders (in a multiple selection control)
    Dim I As Integer
    For I = 0 To SftDirectory2.SelectionCount - 1
        MsgBox ("""" & SftDirectory2.Selection(I).Name & """ is selected (in the multiple selection control).")
    Next
End Sub