[fouadhdfouad]

Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms

Public Class Form1
Private checkboxes As List(Of CheckBox)

Public Sub New()
InitializeComponent()
checkboxes = New List(Of CheckBox)() From {CheckBox1, CheckBox2, CheckBox3, CheckBox4}
End Sub

Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
TextBox1.Clear()
Dim selectedCheckboxes As List(Of String) = GetSelectedCheckboxes()
For Each checkboxName As String In selectedCheckboxes
TextBox1.AppendText(checkboxName & Environment.NewLine)
Next
End Sub

Private Function GetSelectedCheckboxes() As List(Of String)
Dim selectedCheckboxes As New List(Of String)()
For Each checkbox As CheckBox In checkboxes
If checkbox.Checked Then
selectedCheckboxes.Add(checkbox.Text)
End If
Next
Return selectedCheckboxes
End Function
End Class

---

كود :

Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms

Public Class Form1
   Private checkboxes As List(Of CheckBox)

   Public Sub New()
       InitializeComponent()
       checkboxes = New List(Of CheckBox)() From {CheckBox1, CheckBox2, CheckBox3, CheckBox4}
   End Sub

   Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
       TextBox1.Clear()
       Dim selectedCheckboxes As List(Of String) = GetSelectedCheckboxes()
       For Each checkboxName As String In selectedCheckboxes
           TextBox1.AppendText(checkboxName & Environment.NewLine)
       Next
   End Sub

   Private Function GetSelectedCheckboxes() As List(Of String)
       Dim selectedCheckboxes As New List(Of String)()
       For Each checkbox As CheckBox In checkboxes
           If checkbox.Checked Then
               selectedCheckboxes.Add(checkbox.Text)
           End If
       Next
       Return selectedCheckboxes
   End Function
End Class