Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adet As Integer
adet = CheckedListBox1.Items.Count
For i As Integer = 0 To adet - 1
If CheckedListBox1.GetItemChecked(i) Then
ListBox1.Items.Clear()
End If
Next
For i As Integer = 0 To adet - 1
If (CheckedListBox1.GetItemChecked(i)) Then
ListBox1.Items.Add(CheckedListBox1.Items(i))
End If
Next
End Sub
End Class
http://rapidshare.com/files/174218283/ONUR.mdb.html