<div>
assumes a picturebox name Picture1<br />
<br />
Option Explicit<br />
<br />
Private Declare Function ReleaseCapture Lib &quot;user32&quot; () As Long<br />
<br />
Private Declare Function SendMessage Lib &quot;user32&quot; Alias &quot;SendMessageA&quot; (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br />
<br />
Private Const HTCAPTION = 2<br />
Private Const WM_NCLBUTTONDOWN = &amp;HA1<br />
<br />
Private Const WM_SYSCOMMAND = &amp;H112<br />
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br />
&nbsp; &nbsp; ReleaseCapture<br />
&nbsp; &nbsp; SendMessage hwnd, WM_NCLBUTTONDOWN, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; HTCAPTION, 0&amp;<br />
<br />
&nbsp; &nbsp; ' Or use:<br />
' &nbsp; &nbsp;SendMessage hwnd, WM_SYSCOMMAND, _<br />
' &nbsp; &nbsp; &nbsp; &nbsp;&amp;HF012&amp;, 0&amp;<br />
End Sub<br />
<br />

</div>


assumes a picturebox name Picture1

Option Explicit

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Const WM_SYSCOMMAND = &H112
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, _
        HTCAPTION, 0&

    ' Or use:
'    SendMessage hwnd, WM_SYSCOMMAND, _
'        &HF012&, 0&
End Sub



<div>
Well done; it worked like a charm. &nbsp;I set the picture box properties to flat, no border, etc. and it works!<br />
Thanks dude
</div>


Well done; it worked like a charm.  I set the picture box properties to flat, no border, etc. and it works!
Thanks dude

<div>
<div class="content wysiwyg-content">
how do I drag a window (form) by clicking and dragging on an image?<br />
I have set the borderstyle to none and mimic'd topbar with an image, but now I can't drag (obviously). &nbsp;How do i make the image (looks just like a normal titlebar with the X on it) drag the entire window?<br />
thx in advance!<br />
Bear
</div>
</div>


how do I drag a window (form) by clicking and dragging on an image?
I have set the borderstyle to none and mimic'd topbar with an image, but now I can't drag (obviously).  How do i make the image (looks just like a normal titlebar with the X on it) drag the entire window?
thx in advance!
Bear

drag window using image

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.