FTP ActiveX Events for Upload

This VB6 example program demostrates using events to monitor FTP upload progress.

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