Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fuxuan As CheckBox = New CheckBox
Dim danxuan As RadioButton = New RadioButton
fuxuan.Parent = Me
danxuan.Parent = Me
fuxuan.Location = New Point(100, 17)
danxuan.Location = New Point(240, 17)
fuxuan.Checked = True
TextBox1.Text = fuxuan.Checked.ToString + " " + danxuan.Checked.ToString
End Sub
要几个自己添加和设置
温馨提示:内容为网友见解,仅供参考