Check Box checked

Question

I am developing a small program in VB 2008. In my application there is one MDI form its child forms. On MDI form ToolStrip there is one button "Save". In child Form "Child1" there one Panel "Panel1" in which 20 check box are
there from "cb1 to cb20". After selecting few of the check boxes when I press Save button of MDI Toolstrip I need to save the names of check boxes in a table with comma delimiter. But I am not getting the desired out put from the code what I have
written. the code sample in given below
Update_Record in called form the button click even of SAVE button and I is a public variable
Public Sub Update_Records()
Dim X
As
Integer
For X = 1
To 20
            I = X         
Dim Str
As
String =
"CheckBox" &
CStr(X.ToString)
cb=DirectCast(Me.Controls(Str),
CheckBox)
AddHandler Cb.CheckedChanged, cb_CheckedChanged(Cb, Cb.CheckStateChanged)
If Cb.Checked
Then
                MsgBox("Checked")
End
If
Next
End
Sub
Public
Sub cb_CheckedChanged(ByVal
sender As
Object,
ByVal e
As EventArgs)
If Cb.Checked
Then
            Rcpt &= I
End
If
End
Sub

Answer 1

After selecting few of the check boxes when I press Save button of MDI Toolstrip I need to save the names of check boxes in a table with comma delimiter.
You indicate that the expected result will be a comma-delimited string, but you aren't adding the commas.  The code to create a comma-delimited string would be
            Rcpt &= I & ","
but if you wanted the list of control names, not just the numbers, it would be
            Rcpt &=
"CheckBox" &CStr(I.ToString)
That would work if Rcpt is a global variable that you can access to save to the table.  However, the real problem is that the code to test the checkboxes is in the CheckChanged event handler, which isn't relevant to the Save process.  CheckChanged
is invoked when the user clicks the checkbox to change its value - that's not happening here.  Your code should be
Public Sub Update_Records()
Dim X As Integer
For X = 1 To 20
Dim Str As String = "CheckBox" & CStr(X.ToString)
cb=DirectCast(Me.Controls(Str), CheckBox)
If Cb.Checked Then
Rcpt &= cb.name & ","
End If
Next X
End Sub
As good practice you should declare UpdateRecords as a function and return a result, rather than updating a global variable.  It also seems like poor design to record the names of controls on the form - the application should be indifferent to something
internal like the names you have chosen in the designer.