Tampilan setelah disetting properties :
Sintax :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""If CheckBox1.Checked = True Then
TextBox1.Text = TextBox1.Text & CheckBox1.Text & vbCrLf
End IfIf CheckBox2.Checked = True Then
TextBox1.Text = TextBox1.Text & CheckBox2.Text & vbCrLf
End IfIf CheckBox3.Checked = True Then
TextBox1.Text = TextBox1.Text & CheckBox3.Text & vbCrLf
End IfIf CheckBox4.Checked = True Then
TextBox1.Text = TextBox1.Text & CheckBox4.Text & vbCrLf
End IfIf CheckBox5.Checked = True Then
TextBox1.Text = TextBox1.Text & CheckBox5.Text & vbCrLf
End If
End Sub
Jalankan tekan F5, lalu klik Tampilkan, maka hasilnya seperti gambar :