' Gambas class file

Public Sub AddDownload(hDownload As WebDownload)
  
  Dim hForm As FDownload
  
  hForm = New FDownload(svwDownload)
  hForm.Init(hDownload)
  
End

Public Sub timRefresh_Timer()

  Dim hForm As FDownload
  
  For Each hForm In svwDownload.Children
    hForm.Redraw
  Next

End