Private Sub CloseButton_Click()
    Unload Form1
End Sub

Private Sub SftDirectory1_SelectionFinal()
    If Not SftDirectory1.CurrentFolder Is Nothing Then
        SftDirectory1.CurrentFolder.GetImage
        InfoTipLabel.Caption = SftDirectory1.CurrentFolder.InfoTip
    Else
        Set Picture1.Picture = Nothing
        InfoTipLabel.Caption = ""
    End If
End Sub

Private Sub SftDirectory1_FolderImageReady(ByVal Folder As SftDirectoryLib25.ISftDirectoryFolder, ByVal Picture As stdole.IPictureDisp)
    Set Picture1.Picture = Picture
End Sub