Well there are many ways to do this but maybe this will help. Using Windows Form Application:
Note: This is not a very elegant solution but maybe it will at least give you an idea of some thing you could do.
Public Partial Class Form1
Inherits Form
Const checkBoxCount As Integer = 3
Private checkBoxes As CheckBox() = New CheckBox(checkBoxCount - 1) {}
Private checkBoxesText As String() = New String(checkBoxCount - 1) {}
Public Sub New()
InitializeComponent()
checkBoxes(0) = checkBox1
checkBoxes(1) = checkBox2
checkBoxes(2) = checkBox3
For i As Integer = 0 To checkBoxCount - 1
checkBoxesText(i) = checkBoxes(i).Text
Next
End Sub
Private Sub checkBox1_CheckedChanged(sender As Object, e As EventArgs)
UpdateData()
End Sub
Private Sub checkBox2_CheckedChanged(sender As Object, e As EventArgs)
UpdateData()
End Sub
Private Sub checkBox3_CheckedChanged(sender As Object, e As EventArgs)
UpdateData()
End Sub
Private Sub UpdateData()
textBox1.Clear()
For i As Integer = 0 To checkBoxCount - 1
If checkBoxes(i).Checked Then
textBox1.Text += checkBoxesText(i) & vbCr & vbLf
End If
Next
End Sub
End Class
Also in the UpdateData() method you could also do something like:
textBox1.Text += checkBoxesText(i) + ": " & checkBoxes(i).Checked.ToString() & vbCr & vbLf
to diplay something like e.g. Patient is dying: True