Public Class Form1
    Private Sub btn_run_Click(sender As System.Object, e As System.EventArgs) Handles btn_run.Click
        Dim msgTxt As String = "你選的是" & vbCrLf      'vbCrLf換行
        Dim ObjCB As CheckBox

        For Each tmpCB As Object In Me.Controls '將所有在Form1的控制項全部巡迴一次
            If tmpCB.GetType.ToString() = "System.Windows.Forms.CheckBox" Then
                ObjCB = CType(tmpCB, CheckBox)

                If ObjCB.Checked Then
                    msgTxt = msgTxt + ObjCB.Text + vbCrLf
                End If
            End If
        Next
        MsgBox(msgTxt)
    End Sub
End Class