Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For ii = 0 To CheckedListBox1.CheckedItems.Count
ListBox1.Items.Add(CheckedListBox1.CheckedItems(ii))
ii += 1
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()

CheckedListBox1.Items.Add(TextBox1.Text)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

For jj = 0 To CheckedListBox1.CheckedItems.Count
CheckedListBox1.Items.RemoveAt(jj)

jj += 1
Next


End Sub
End Class