Usando caixa de seleção de botão

Public Class UserChoice

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Sabores As String = ""

        If CheckBox1.Checked = True Then

            Sabores &= " Queijo"

        End If

        If CheckBox2.Checked = True Then

            Sabores &= " Pimenta"

        End If

        If CheckBox3.Checked = True Then

            Sabores &= " Cogumelo"

        End If

        If Sabores <> "" Then

            MsgBox("Sua pizza tem os seguintes sabores: " & Sabores)

        End If

        If RadioButton2.Checked = True Then

            MsgBox("Você escolheu molho picante")

        Else

            MsgBox("Você escolheu molho normal")

        End If

    End Sub

End Class

********************************************

Para criar uma interface de usuário teremos várias opções que devemos apresentar, tipo para comprar uma pizza e escolhemos os sabores, usando o controle checkbox para seleções.

Também usando botões de opção.