|
Public Class Form1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then ListBox1.Items.Add("MUSIC") Else ListBox1.Items.Remove("MUSIC") End If End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then ListBox1.Items.Add("TRAVELLING") Else ListBox1.Items.Remove("TRAVELLING") End If End Sub End Class |