Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
        For Each cb As Control In Me.Controls
            If TypeOf cb Is CheckedListBox Then
                AddHandler cb.DragDrop, AddressOf CheckedList_DragDrop
                AddHandler cb.DragEnter, AddressOf CheckedList_DragEnter
                AddHandler cb.MouseMove, AddressOf CheckedList_MouseMove
            End If
        Next
    End Sub
 
    Private Sub CheckedList_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
        Dim ckb As CheckedListBox = sender
        If e.Data.GetDataPresent(DataFormats.StringFormat, True) Then
            ckb.Items.Add(chbitem)
        End If
    End Sub
 
    Private Sub CheckedList_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
        If e.Data.GetDataPresent(DataFormats.StringFormat, True) Then
            e.Effect = DragDropEffects.Move
        End If
    End Sub
 
    Private Sub CheckedList_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Try
            Dim ckb As CheckedListBox = sender
            If e.Button = Windows.Forms.MouseButtons.Left Then
                chbitem = ckb.SelectedItem.ToString
                ckb.Items.Remove(CheckedListBox1.SelectedItem)
                ckb.DoDragDrop(chbitem, DragDropEffects.Move)
            End If
        Catch ex As Exception
 
        End Try
 
    End Sub