Sql server RadioButton在面板内的面板内时不显示

这是我的第一个问题，如果我做错了什么，请原谅我

我有一个小的调查表单，可以自动从SQL server表中提取问题和答案，并创建一个问题标签（label_Investment（I）），一个面板来嵌套每个问题答案的所有单选按钮（panel_Response（I）），以及3个单选按钮（yes，no，n/a），命名为RadioButton_answers（I）_1。所有问题和答案都在一个大面板（panel_Survey）内，允许用户上下滚动（大约50个问题）

当我运行程序时，我只能看到问题，但没有显示任何单选按钮。我尝试的是：

• 使用.BringToFront将面板_响应和所有单选按钮置于前面
• 将.Parent更改为Controls.Add。我没有使用.Parent，而是使用Panel\u Survey.Controls.Add（Panel\u Response）和Panel\u Response.Controls.Add（RadioButton\u Answers\u 1）
• 强制面板_Response.Visible=True，所有单选按钮Visible=True （我知道这听起来可能很愚蠢，但我已经出局了）

我怎样才能让这些单选按钮显示出来？如果没有，这种调查表有没有更好的设计？提前感谢您的任何建议

下面是我的代码：

Protected Overrides Sub-OnLoad（作为事件参数）
将面板计数设为整数
将问题名称设置为字符串
将响应1设置为字符串
将响应2变暗为字符串
作为字符串的Dim Response3
尺寸初始值X为整数=面板_Survey.Left
初始尺寸为整数=面板_Survey.Top
Dim SizeX为整数=1000
尺寸大小为整数=25
'加载调查
尝试
'将问题和答案列表放入列表数组中
将问题和答案的列表作为新列表（列表（字符串））
Dim conn作为新的SqlClient.SqlConnection
conn.ConnectionString=连接字符串
Dim CommandString As String=“按[QUISTIONID]顺序从[QUISTIONE_List]中选择[QUISTIONID]、[QUISTIONNAME]、[Response1]、[Response2]、[Response3]。”
Dim命令作为新的SqlClient.SqlCommand
Command.CommandText=CommandString
Command.Connection=conn
将灾难恢复设置为SqlClient.SqlDataReader
康涅狄格州公开赛
dr=命令执行器
当雷德博士
Dim ls作为新列表（字符串）
ls.Add（dr.GetValue（0.ToString）
ls.Add（dr.GetValue（1.ToString）
ls.Add（dr.GetValue（2.ToString）
ls.Add（dr.GetValue（3.ToString）
ls.Add（dr.GetValue（4.ToString）
问题和答案列表。添加（ls）
结束时
康涅狄格州关闭
PanelCount=问题和答案列表。计数
对于i=0的问题和答案列表。计数-1
问题名称=问题和答案列表（i）（1）
回答1=问题和回答列表（i）（2）
回答2=问题和回答列表（i）（3）
回答3=问题和回答列表（i）（4）
Dim Label_问卷作为新标签
仪表板变暗\u响应为新仪表板
变暗收音机按钮\u作为新收音机按钮回答\u 1
变暗收音机按钮作为新收音机按钮回答2
变暗单选按钮作为新单选按钮应答3
"条件标签"
用Label\u问卷
.Parent=小组调查
.Name=“标签调查问卷”+i.ToString
.Font=新字体（“Calibri”，11，FontStyle.Regular）
.Text=问题名称
.ForeColor=颜色。黑色
.位置=新点（初始值X，初始值Y）
.AutoSize=True
以
“调节面板
小组的回应
'面板调查.控件.添加（面板响应）
.Parent=小组调查
.Name=“面板调查问卷”+i.ToString
.位置=新点（初始值X+880，初始值Y）
.宽度=250
.高度=25
.BringToFront（）
以
作为整数的Dim j
作为整数的Dim h
j=面板_响应。左
h=面板_响应。顶部
'调整单选按钮以获取答案
使用单选按钮\u回答\u 1
.Parent=面板\u响应
.Name=“RadioButton\u Answers”+i.ToString+“\u 1”
.Font=新字体（“Calibri”，11，FontStyle.Regular）
.Text=响应1
.ForeColor=颜色。黑色
.位置=新点（j，h）
.AutoSize=True
h+=单选按钮\u答案\u 1.高度
以
使用单选按钮\u回答\u 2
.Parent=面板\u响应
.Name=“RadioButton\u Answers”+i.ToString+“\u 2”
.Font=新字体（“Calibri”，11，FontStyle.Regular）
.Text=响应2
.ForeColor=颜色。黑色
.位置=新点（单选按钮回答1.右侧，h）
.AutoSize=True
以
使用单选按钮\u回答\u 3
.Parent=面板\u响应
.Name=“RadioButton\u Answers”+i.ToString+“\u 3”
.Font=新字体（“Calibri”，11，FontStyle.Regular）
.Text=响应3
.ForeColor=颜色。黑色
.位置=新点（单选按钮回答2.右侧，h）
.AutoSize=True
以
InitialY=InitialY+SizeY+10
下一个
特例
Show（String.Format（“错误：{0}”，例如Message），“创建问题和答案时出错”，MessageBoxButtons.OK，MessageBoxIcon.Error）
结束尝试
端接头

这里有几个基本问题：

• 您似乎认为，当控件放置在面板中时，它必须放置在相对于窗体的位置。事实并非如此；它相对于具有自己的coor的面板放置