FTP ActiveX VB6 example with progress monitoring events.

This VB6 sample program demonstrates how to receive progress events for an FTP download.

<font face=\"courier\" size=2>
Private Sub ChilkatFTP21_GetProgress(ByVal pctDone As Long)
    ProgressBar1.Value = pctDone
End Sub
	
Private Sub Command1_Click()
    ChilkatFtp21.UnlockComponent "test"
    ChilkatFtp21.HostName = "www.***.com"
    ChilkatFtp21.Username = "***"
    ChilkatFtp21.Password = "***"
    ChilkatFtp21.KeepSessionLog = 1
    ChilkatFtp21.Passive = 0
    ChilkatFtp21.Connect
    ChilkatFtp21.GetFile "testfile.zip", "testfile.zip"
    MsgBox ChilkatFtp21.SessionLog
End Sub
</font>