ERFORDERLICHE
OBJEKTE
-- keine --
FORM-CODE
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 Long) As Long
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dim RetVal%
ReleaseCapture
RetVal% = SendMessage(hwnd, &HA1, 2, 0)
End If
End Sub
|