Программирование на Visual Basic

22. Списки в формах могут иместь скрытие поля. О том, как можно их использовать указано в этом примере.

Private Sub butCalc_Click()
Dim i As Long, sum As Currency
    With Me.myList
        For i = 0 To .ListCount - 1
            sum = sum + .Column(1, i)
        Next
        MsgBox "Всего записей: "  .ListCount  ", выбран номер: "  .ListIndex  ", сумма="  sum
    End With
End Sub