'Api声明
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 Declare Function ReleaseCapture Lib "USER32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTRIGHT = 11
在窗体上放一个PictureBox控件,并把Align设置为4-Alagn Left
Private Sub Picture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lParam As Long
If Button <> 1 Then
Exit Sub
End If
With Picture
If X > .Width - 80 And X < .Width Then
lParam = HTRIGHT
End If
If lParam Then
Call ReleaseCapture
Call SendMessage(.hWnd, WM_NCLBUTTONDOWN, lParam, 0)
End If
End With
End Sub