Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim newCheckBox As New CheckBox()  '宣告新CheckBox
        newCheckBox.Text = "Checkbox4"        '填入其文字
        newCheckBox.Location = New Point(245, 85)  '決定其座標
        newCheckBox.Size = New Size(95, 45)           '決定其Size
        Me.Controls.Add(newCheckBox)                     '加入Form1的控制項集合
    End Sub