Code for Lemonade Stand

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim costOfCup As Decimal = 1.15
Dim largeCup As Decimal = 1.75
Dim totalCost As Decimal = 0.0
If CheckBox1.Checked = True Then
totalCost = largeCup * txtCups.Text
Else
totalCost = costOfCup * txtCups.Text
End If
lblPrice.Text = totalCost
End Sub
End Class

---
Give a description of what this code does:
....