Private chbitem As String
 
    Private Sub CheckedListBox2_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles CheckedListBox2.DragDrop
        If e.Data.GetDataPresent(DataFormats.StringFormat, True) Then
            CheckedListBox2.Items.Add(chbitem)
        End If
    End Sub
 
    Private Sub CheckedListBox2_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles CheckedListBox2.DragEnter
        If e.Data.GetDataPresent(DataFormats.StringFormat, True) Then
            e.Effect = DragDropEffects.Move
        End If
    End Sub
 
    Private Sub CheckedListBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles CheckedListBox1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            chbitem = CheckedListBox1.SelectedItem.ToString
            CheckedListBox1.Items.Remove(CheckedListBox1.SelectedItem)
            CheckedListBox1.DoDragDrop(chbitem, DragDropEffects.Move)
        End If
    End Sub