program bahasa

Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged
TextBox1.Clear()
For Each item As Windows.Forms.CheckBox In GroupBox1.Controls
If item.Checked = True Then

If TextBox1.Text = TextBox1.Text & item.Text Then
TextBox1.Text = TextBox1.Text & item.Text
Else
TextBox1.Text = TextBox1.Text & "," & item.Text
End If


End If
Next
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

End Sub

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

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub
End Class

Posted in: Edukasi