Private Sub Pics_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveObj = True
ObjX = X
ObjY = Y
End Sub
Private Sub Pics_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not MoveObj Then Exit Sub
Pics(Index).left = Pics(Index).left + (X - ObjX)
Pics(Index).Top = Pics(Index).Top + (Y - ObjY)
End Sub
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
private sub command1_mousedown(button as integer .......)
sendmessage command1.hwnd,wm_nclbuttondown,htcaption,0&
end sub