to gita

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ma, mi, wa
        If CheckBox1.Checked Then
            ma &= CheckBox1.Text
        End If
        If CheckBox2.Checked Then
            If CheckBox1.Checked Then
                ma &= " dan "
            End If
            ma &= CheckBox2.Text
        End If
        If CheckBox3.Checked Then
            If CheckBox2.Checked Or CheckBox1.Checked Then
                ma &= " dan "
            End If
            ma = CheckBox3.Text
        End If

        If CheckBox4.Checked Then
            mi &= CheckBox4.Text
        End If
        If CheckBox5.Checked Then
            If CheckBox1.Checked Then
                mi &= " dan "
            End If
            mi &= CheckBox5.Text

        End If
        If CheckBox6.Checked Then
            If CheckBox1.Checked Or CheckBox2.Checked Then
                mi &= " dan "
            End If
            mi &= CheckBox6.Text
        End If
        If RadioButton1.Checked Then
            wa = RadioButton1.Text
        ElseIf RadioButton2.Checked Then
            wa = RadioButton2.Text
        ElseIf RadioButton3.Checked Then
            wa = RadioButton3.Text
        ElseIf RadioButton4.Checked Then
            wa = RadioButton4.Text
        End If
        Label1.Text = " Selamat " & wa & " Anda Masuk Pada " & ComboBox1.Text & " " & ComboBox2.Text & " " & ComboBox3.Text & " Anda Memilih Makanan " & ma & " Dan Memilih Minuman " & mi
    End Sub