Private Sub Form_Activate()
        InitListView2 'доинициализация "красоты"
        'Microsoft Internet Transfer Control 6.0 (SP6) MSINET.OCX
        If (Len(Command()) =  0 ) And (Not (StartParam.InitStart = "1")) Then 'только в основном режиме панели
            If IfInternetPossible Then 'форсируем онлайн-режим IE
                Inet1.Execute "http://www.mysite.com/file.txt", "GET"
            Else 'при неудаче(не выключился автономный режим)продолжаем с пустым результатом
                webStr = ""
                TimerDownload_Timer
            End If
        End If
        MeActive = True
 End Sub

Dim MeActive As Boolean 'один раз загружали, страховка
Private Sub Form_Load()
....
    MeActive = False
End Sub
Private Sub Form_Activate()
    If MeActive = False Then
        InitListView2
        'Microsoft Internet Transfer Control 6.0 (SP6) MSINET.OCX
        If (Len(Command()) =  0 ) And (Not (StartParam.InitStart = "1")) Then 'только в основном режиме панели
            If IfInternetPossible Then 'форсируем онлайн-режим IE
                Inet1.Execute "http://www.mysite.com/file.txt","GET"
            Else 'при неудаче(не выключился автономный режим)продолжаем с пустым результатом
                webStr = ""
                TimerDownload_Timer
            End If
        End If
        MeActive = True
    End If
End Sub

Sub() 
   parametr1=- 1 
   parametr2=- 1 
   if (file1)  parametr1=value1
   if (file2) parametr2=value2
   if parametr1=- 1  then Listview.clean
   ...
   if not(parametr2)=- 1  then
   listview.element(n).property=...
end Sub

  if not(parametr2)=- 1  and not(parametr1)=- 1  then
   listview.element(n).property=...