move window on drop zone also

This commit is contained in:
Jonathan Jenne 2020-11-11 17:02:04 +01:00
parent b32f7553d2
commit 9bfd7f9213

View File

@ -103,7 +103,7 @@ Public Class frmFlowForm
Opacity = OPACITY_SHOWN Opacity = OPACITY_SHOWN
End Sub End Sub
Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove, PictureBox1.MouseMove
If e.Button = MouseButtons.Left Then If e.Button = MouseButtons.Left Then
ClassWin32.ReleaseCapture() ClassWin32.ReleaseCapture()
ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0) ClassWin32.SendMessage(Handle, ClassWin32.WM_NCLBUTTONDOWN, ClassWin32.HTCAPTION, 0)