Wyświetlanie w oknach wybranego produktu z tabeli

Poniżej tabeli pokarmowej lstPokarm  umieszczone są okna do wyświetlania wybranego produktu z tabeli.  Należy kliknąć dwa razy w okno tabeli i następnie uzupełnić kod.
Private Sub lstPokarm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstPokarm.SelectedIndexChanged
    Dim bf As ListView.SelectedListViewItemCollection = _
                    lstPokarm.SelectedItems
     For Each sit In bf
        txtNazwao.Text = sit.Subitems(0).Text)
        pEn = Decimal.Parse(sit.Subitems(1).Text)
        txtEno.Text = Ctype(pEn, String)
    Next
End Sub
Po uruchomieniu programu (klawisz F5), można sprawdzić działanie programu. Wyświetlenie wybranego produktu z tabeli, umożliwia przeliczenie danych po wprowadzeniu wagi.
W następnym razem przedstawię sposób obliczeń.