VB-鼠标事件优先级问题

    写一个画网络拓扑的程序，如图所示，可以拖拉控件到Form上，并且控件可以在Form上移动。
Private Sub Form_Dragdrop(Source As Control, x As Single, Y As Single)
    现在要做一个鼠标左击响应效果，显示交换机控件的详细信息
    可是在mouse_down,click,mouse_up事件中一一试过都不行
  

    显示：无法得到左击button=1的值，却可以得到右击button=2的值
    而在drag_drop中，左右击button=1,2都正常
    初步估计是左击事件和dragdrop执行的优先级问题
    改在mouse_move事件中执行左击事件，解决问题！
     …