Public Class frmIce
 
    Dim WithEvents lboAuswahl As New ListBox With _
        {.Parent = Me, .Left = 150, .Height = 100, .Width = 100}
 
    Dim lblPreis As New Label With _
        {.Parent = Me, .Top = 200, .Left = 150, .Width = 100}
 
 
 
    Private Sub frmIce_Load(sender As System.Object, _
                e As System.EventArgs) Handles MyBase.Load
 
        Dim sorten() As String = {"vanille", "whisky", "apricot", "coconut", _
          "choco"}
        Dim preis() As Decimal = {0.38D, 0.45D, 0.52D, 0.25D, 0.33D}
 
        'Buttons erstellen
        For i As Integer = 0 To sorten.Length - 1
            Dim btn As New Button With
                {.Parent = Me, .Text = sorten(i), .Tag = preis(i)}
            btn.Top = i * 50 : btn.Width = 100 : btn.Height = 40
            AddHandler btn.Click, AddressOf btn_click
        Next i
 
    End Sub
 
 
 
    Private Sub btn_click(ByVal sender As Object, e As EventArgs)
 
        'Kugel bei Button-Click hinzufügen 
        Dim btn As Button = CType(sender, Button)
        If lboAuswahl.Items.Count = 3 Then Exit Sub 'maximale Kugelzahl
 
        Dim preis As Decimal
        Decimal.TryParse(lblPreis.Text, preis)
        preis += CDec(btn.Tag)
        lblPreis.Text = CStr(preis)
 
        lboAuswahl.Items.Add(btn.Text)
    End Sub
 
 
 
    Private Sub lboAuswahl_Click(sender As Object, _
                e As System.EventArgs) Handles lboAuswahl.Click
 
        'Kugel bei Listen-Click entfernen
        Dim kugelpreis, gesamtpreis As Decimal
        With lboAuswahl
            If .SelectedIndex >= 0 Then
                For Each c As Control In Me.Controls
                    If TypeOf c Is Button Then
                        If c.Text = CStr(.Items(.SelectedIndex)) Then
                            kugelpreis = CDec(c.Tag)
                        End If
                    End If
                Next c
                .Items.RemoveAt(.SelectedIndex)
                Decimal.TryParse(lblPreis.Text, gesamtpreis)
                gesamtpreis -= kugelpreis
                lblPreis.Text = CStr(gesamtpreis)
            End If
        End With
    End Sub
End Class