Jawaban Soal Praktek NO. 1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String = ""
        Dim pesan2 As String = ""
        Dim pesan3 As String = ""

        For Each I As CheckBox In GroupBox1.Controls
            If I.Checked = True Then
                pesan += "-" & I.Text
            End If
        Next
        For Each J As CheckBox In GroupBox2.Controls
            If J.Checked = True Then
                pesan += "-" & J.Text
            End If
        Next
        For Each K As RadioButton In GroupBox3.Controls
            If K.Checked = True Then
                pesan += "-" & K.Text
            End If
        Next
        Label2.Text = pesan + pesan2 + pesan3
    End Sub
End Class