VB：关于checkedlistbox1项目添加到checkedlistbox2以及将textbox中文本添加入checkedlistbox1

Question

如何将textbox中文本添加入checkedlistbox1（方法越少见，越奇怪越好）
在单击>按钮时将checkedlistbox1中选中项添加入checkedlistbox2
在单击>>按钮时将checkedlistbox1中所有项添加入checkedlistbox2
谢谢～～～～

Answer 1

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '这里把文本框的值添加入checkedlistbox1
If Me.TextBox1.Text.Trim <> "" Then '为空时不操作
Me.CheckedListBox1.Items.Add(Me.TextBox1.Text)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '这里在单击>按钮时将checkedlistbox1中选中项添加入checkedlistbox2
For i As Integer = 0 To Me.CheckedListBox1.CheckedItems.Count - 1
Me.CheckedListBox2.Items.Add(CheckedListBox1.CheckedItems(i).ToString)
Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '在单击>>按钮时将checkedlistbox1中所有项添加入checkedlistbox2
For i = 0 To Me.CheckedListBox1.Items.Count - 1
Me.CheckedListBox2.Items.Add(CheckedListBox1.Items(i).ToString)
Next
End Sub
End Class

Answer 2

I don't no!