Private Sub CheckedList_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Try
            Dim ckb As CheckedListBox = DirectCast(sender, CheckedListBox)
            If e.Button = Windows.Forms.MouseButtons.Left Then
                chbitem = ckb.SelectedItem.ToString
                ckb.Items.Remove(ckb.SelectedItem)
                ckb.DoDragDrop(chbitem, DragDropEffects.Move)
            End If
        Catch ex As Exception
 
        End Try