Private Sub chkAnchovy_CheckedChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles chkAnchovy.CheckedChanged
   Me.Text = "Yuck, anchovies!"
   Calculate()
End Sub 'chkAnchovy_CheckedChanged