<code=vb>
Private Sub Form_Load()
Dim intFile As Integer
intFile = FreeFile()

appPath = App.Path
If Right(appPath, 1) <> "\" Then appPath = appPath & "\"

strDownloadFiles = "papers.swf"

For Each Item In Split(strDownloadFiles, ",")
Label1.Caption = "Uppdaterar " & Item
Form1.Refresh
getURL "http://www.vphb.se/rita/" & Item, "binary", Item
Next


End Sub

Sub getURL(URL, strType, strFile)
Dim strURL As String
Dim bData() As Byte
Dim intFile As Integer
intFile = FreeFile()

MsgBox "Downloading " & URL & " to " & appPath & strFile

If LCase(strType) = "binary" Then
bData() = Inet1.OpenURL(URL, icByteArray)
Open appPath & strFile For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Else
Open appPath & strFile For Output As #intFile
Write #intFile, Inet1.OpenURL(URL)
Close #intFile
End If

End Sub
</code>