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