如何使vb的窗體在電腦屏幕上隨鼠標(biāo)一起移動(dòng)？將以下代碼放入表單代碼：private mmousedown as Boolean private MX as single，my as singlepri

如何使vb的窗體在電腦屏幕上隨鼠標(biāo)一起移動(dòng)？

將以下代碼放入表單代碼：private mmousedown as Boolean private MX as single，my as singleprivate sub formuload（）mMouseDown=false結(jié)束子私有子窗體umousedown（Button as Integer，Shift as Integer，X as Single，Y as Single）mMouseDown=Not mMouseDownmX=XmY=YEnd子私有子窗體umousemove（Button as Integer，Shift as Integer，X as Single，Y as Single）如果mMouseDown我。快走我。左邊X-mX 我。頂Y-myend sub單擊窗體后，窗體將隨鼠標(biāo)移動(dòng)，然后再次單擊以停止跟隨。鼠標(biāo)將停留在單擊的位置（窗體上）。MouseMove事件不是很敏感，因此鼠標(biāo)不能移動(dòng)太快。