[VB.NET]VB.net中如何直接把Combobox下拉项拖放到另一个Combobox

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
VB.net中如何直接把Combobox下拉项拖放到另一个Combobox
虽然.net提供的Combobox控件都已支持拖放动作,以下代码是参照MSDN写的

Private Sub ComboBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left And ComboBox1.DroppedDown Then
ComboBox1.DoDragDrop(ComboBox1.SelectedText, DragDropEffects.Copy Or DragDropEffects.Move)

End If
End Sub

调试结果很让人失望,干脆下拉框都弹不出来.

请求高手的帮忙
__________________________________________________________________________
根避免弹不出来的问题,需要多加一个判断条件

引用MSDN的原文:
当拖动动作启动时，该示例调用 DoDragDrop 方法。在 MouseDown 事件期间，如果从鼠标位置起鼠标移动的距离大于 SystemInformation.DragSize，则启动拖动动作。IndexFromPoint 方法用于在 MouseDown 事件期间确定要拖动的项的索引。

调试ing...希望这个问题能自己搞定
__________________________________________________________________________