Sub InitializeControl()
'首先添加Label和TextBox控件
Dim Label1 As New System.Windows.Forms.Label
Dim TextBox1 As New System.Windows.Forms.TextBox
'Label1
Label1.Location = New System.Drawing.Point(8, 8)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(64, 16)
Label1.TabIndex = 1
Label1.Text = "户主姓名"
'TextBox1
TextBox1.Location = New System.Drawing.Point(72, 7)
TextBox1.Name = "TextBox1"
TextBox1.Size = New System.Drawing.Size(128, 21)
TextBox1.TabIndex = 2
TextBox1.Text = ""
'把它们添加到父控件Form1的Controls集合中
Me.Controls.Add(TextBox1)
Me.Controls.Add(Label1)
'添加三个GroupBox控件
Dim GroupBox1 As New System.Windows.Forms.GroupBox
Dim GroupBox2 As New System.Windows.Forms.GroupBox
Dim GroupBox3 As New System.Windows.Forms.GroupBox
'GroupBox1
GroupBox1.BackColor = System.Drawing.SystemColors.Control
GroupBox1.Location = New System.Drawing.Point(8, 40)
GroupBox1.Name = "GroupBox1"
GroupBox1.Size = New System.Drawing.Size(96, 104)
GroupBox1.TabIndex = 3
GroupBox1.TabStop = False
GroupBox1.Text = "性别"
'GroupBox2
GroupBox2.Location = New System.Drawing.Point(103, 40)
GroupBox2.Name = "GroupBox2"
GroupBox2.Size = New System.Drawing.Size(96, 104)
GroupBox2.TabIndex = 4
GroupBox2.TabStop = False
GroupBox2.Text = "单元"
'GroupBox3
GroupBox3.Location = New System.Drawing.Point(197, 40)
GroupBox3.Name = "GroupBox3"
GroupBox3.Size = New System.Drawing.Size(96, 104)
GroupBox3.TabIndex = 5
GroupBox3.TabStop = False
GroupBox3.Text = "楼层"
'把它们添加到父控件Form1的Controls集合中
Me.Controls.Add(GroupBox1)
Me.Controls.Add(GroupBox2)
Me.Controls.Add(GroupBox3)
'添加RadioButton控件并分别绘制在GroupBox控件内
Dim RadioButton1 As New System.Windows.Forms.RadioButton
Dim RadioButton2 As New System.Windows.Forms.RadioButton
Dim RadioButton3 As New System.Windows.Forms.RadioButton
Dim RadioButton5 As New System.Windows.Forms.RadioButton
Dim RadioButton4 As New System.Windows.Forms.RadioButton
Dim RadioButton6 As New System.Windows.Forms.RadioButton
Dim RadioButton7 As New System.Windows.Forms.RadioButton
Dim RadioButton8 As New System.Windows.Forms.RadioButton
Dim RadioButton9 As New System.Windows.Forms.RadioButton
Dim RadioButton10 As New System.Windows.Forms.RadioButton
'RadioButton1
RadioButton1.Location = New System.Drawing.Point(8, 24)
RadioButton1.Name = "RadioButton1"
RadioButton1.Size = New System.Drawing.Size(80, 24)
RadioButton1.TabIndex = 0
RadioButton1.Text = "男性"
'RadioButton2
RadioButton2.Location = New System.Drawing.Point(8, 63)
RadioButton2.Name = "RadioButton2"
RadioButton2.Size = New System.Drawing.Size(80, 24)
RadioButton2.TabIndex = 1
RadioButton2.Text = "女性"
'RadioButton3
RadioButton3.Location = New System.Drawing.Point(8, 32)
RadioButton3.Name = "RadioButton3"
RadioButton3.Size = New System.Drawing.Size(80, 24)
RadioButton3.TabIndex = 1
RadioButton3.Text = "二单元"
'RadioButton5
RadioButton5.Location = New System.Drawing.Point(8, 53)
RadioButton5.Name = "RadioButton5"
RadioButton5.Size = New System.Drawing.Size(80, 24)
RadioButton5.TabIndex = 2
RadioButton5.Text = "三单元"
'RadioButton4
RadioButton4.Location = New System.Drawing.Point(8, 13)
RadioButton4.Name = "RadioButton4"
RadioButton4.Size = New System.Drawing.Size(80, 24)
RadioButton4.TabIndex = 0
RadioButton4.Text = "一单元"
'RadioButton6
RadioButton6.BackColor = System.Drawing.SystemColors.Control
RadioButton6.Location = New System.Drawing.Point(8, 75)
RadioButton6.Name = "RadioButton6"
RadioButton6.Size = New System.Drawing.Size(80, 24)
RadioButton6.TabIndex = 3
RadioButton6.Text = "四单元"
'RadioButton7
RadioButton7.Location = New System.Drawing.Point(8, 32)
RadioButton7.Name = "RadioButton7"
RadioButton7.Size = New System.Drawing.Size(80, 24)
RadioButton7.TabIndex = 1
RadioButton7.Text = "二楼"
'RadioButton8
RadioButton8.Location = New System.Drawing.Point(8, 53)
RadioButton8.Name = "RadioButton8"
RadioButton8.Size = New System.Drawing.Size(80, 24)
RadioButton8.TabIndex = 2
RadioButton8.Text = "三楼"
'RadioButton9
RadioButton9.Location = New System.Drawing.Point(8, 13)
RadioButton9.Name = "RadioButton9"
RadioButton9.Size = New System.Drawing.Size(80, 24)
RadioButton9.TabIndex = 0
RadioButton9.Text = "一楼"
'RadioButton10
RadioButton10.BackColor = System.Drawing.SystemColors.Control
RadioButton10.Location = New System.Drawing.Point(8, 75)
RadioButton10.Name = "RadioButton10"
RadioButton10.Size = New System.Drawing.Size(80, 24)
RadioButton10.TabIndex = 3
RadioButton10.Text = "四楼"
'分别把它们添加到父控件GroupBox的Controls集合中
GroupBox1.Controls.Add(RadioButton1)
GroupBox1.Controls.Add(RadioButton2)
GroupBox2.Controls.Add(RadioButton3)
GroupBox2.Controls.Add(RadioButton4)
GroupBox2.Controls.Add(RadioButton5)
GroupBox2.Controls.Add(RadioButton6)
GroupBox3.Controls.Add(RadioButton7)
GroupBox3.Controls.Add(RadioButton8)
GroupBox3.Controls.Add(RadioButton9)
GroupBox3.Controls.Add(RadioButton10)
End Sub