Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const WM_NCHITTEST As Integer = &H84
- Const HTCLIENT As Integer = &H1
- Const HTCAPTION As Integer = &H2
- Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
- Select Case m.Msg
- Case WM_NCHITTEST
- MyBase.WndProc(m)
- If m.Result = HTCLIENT Then m.Result = HTCAPTION
- Case Else
- MyBase.WndProc(m)
- End Select
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement