Private Sub Form_Load()
    SftDirectory1.ColumnCount = 2
    SftDirectory1.ShowFiles = False
    SftDirectory1.GridStyle = gridSftDirectoryBoth
    SftDirectory1.Headers.Style = headersSftDirectoryButton
    SftDirectory1.ColumnEntry(0).HeaderText = "Folder"
    SftDirectory1.ColumnEntry(1).HeaderText = "Full Path"
    SftDirectory1.ColumnEntry(1).Contents = contentsSftDirectoryUser1
    SftDirectory1.Reload False, False
End Sub

Private Sub SftDirectory1_UserContents(ByVal Folder As SftDirectoryLib25.ISftDirectoryFolder, ByVal Contents As SftDirectoryLib25.SftDirectoryContentsConstants, UserString As String)
    If Contents = contentsSftDirectoryUser1 Then
        UserString = Folder.Path
    End If
End Sub