Private Sub cmdTransfer_Click()
    Dim bData() As Byte
    Dim nFile As Integer
    
    'מציאת קובץ פנוי
    nFile = FreeFile()
    
    'קריאת הפריט אשר נמצא בתוך תיבת הטקסט של הכתובת לתוך מערך
    bData() = Inet1.OpenURL(txtURL.Text, icByteArray)
    
    'כתיבה של המערך לקובץ שהוגדר בתיבת טקסט השניה
    Open txtSaveTo.Text For Binary Access Write As #nFile
    
    Put #nFile, , bData()
    
    Close #nFile
End Sub