Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim counter As Integer = 0
Dim Message As String
If CheckBox1.CheckState = CheckState.Checked Then
Message = CheckBox1.Text & vbNewLine
counter = counter + 1
MessageBox.Show("You have chosen" & counter & "soaps")
ElseIf CheckBox1.CheckState = CheckState.Unchecked Then
Message = CheckBox1.Text & vbNewLine
End If
If CheckBox2.CheckState = CheckState.Checked Then
Message = CheckBox2.Text & vbNewLine
counter = counter + 1
MessageBox.Show("You have chosen" & counter & "soaps")
ElseIf CheckBox2.CheckState = CheckState.Unchecked Then
Message = CheckBox2.Text & vbNewLine
If CheckBox3.CheckState = CheckState.Checked Then
Message = CheckBox3.Text & vbNewLine
counter = counter + 1
MessageBox.Show("You have chosen" & counter & "soaps")
ElseIf CheckBox3.CheckState = CheckState.Unchecked Then
Message = CheckBox3.Text & vbNewLine
If CheckBox4.CheckState = CheckState.Checked Then
Message = CheckBox4.Text & vbNewLine
counter = counter + 1
MessageBox.Show("You have chosen" & counter & "soaps")
ElseIf CheckBox4.CheckState = CheckState.Unchecked Then
Message = CheckBox4.Text & vbNewLine
If CheckBox5.CheckState = CheckState.Checked Then
Message = CheckBox5.Text & vbNewLine
counter = counter + 1
MessageBox.Show("You have chosen" & counter & "soaps")
ElseIf CheckBox5.CheckState = CheckState.Unchecked Then
Message = CheckBox5.Text & vbNewLine
End If
End If
End If
End If
End Sub
End Class