Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim newCheckBox As New CheckBox()  '宣告新CheckBox
        newCheckBox.Name = "Checkbox4"
        newCheckBox.Text = "Checkbox4"        '填入其文字
        newCheckBox.Location = New Point(245, 85)  '決定其座標
        newCheckBox.Size = New Size(95, 45)           '決定其Size
        Me.Controls.Add(newCheckBox)                     '加入Form1的控制項集合
        '--------移出CB-------
        For i As Integer = Me.Controls.Count - 1 To 0 Step 1
            If Me.Controls(i).GetType Is GetType(CheckBox) Then
                If Me.Controls(i).Name.IndexOf("Checkbox4") Then
                    Me.Controls(i).Dispose()  '移出該控制項
                End If
            End If
        Next
    End Sub