Добавление элемента Microsoft Internet Transfer Control - VB

Формулировка задачи:

Ребята, привет ! Ответ на свой первый вопрос, заданный 21.06.01 г. я, наверное, так и не получу, тогда такой хотя бы вопрос: В редакторе VBA нужно добавить элемент управления Microsoft Internet Transfer Control. Захожу в меню Сервис и вижу, что менюшка Дополнительные элементы недоступна. Почему и как быть ? И ещё. Если кто уже устанавливал себе этот контрол и работал с ним, не кинете ли мне на мыло описание свойств и методов оного зверя? Буду премного благодарен. Можно ли с помощью оного контрола открыть для чтения файл на серваке ?

Решение задачи: «Добавление элемента Microsoft Internet Transfer Control»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub axFTP_StateChanged(ByVal State As Integer)
Select Case State
Case icError: MsgBox 'Error #' & axFTP.ResponseCode & ': ' & axFTP.ResponseInfo 
Case icResponseReceived 
' Display a message when the transfer is finished.
Case icResponseReceived: MsgBox 'File Transferred'
case else
debug.print State & vbNewLine
end select
 
End Sub