[VB6] Calcolo di sommatorie

[oregon]

Questo esempio di codice ti puo' essere utile ...

Dim s As Double
Dim i As Long

List3.Clear
For i=0 To List1.ListCount-1
  s = (Val(List1.List(i)) + Val(List2.List(i))) / 2
  List3.AddItem s
Next i