Pessoal preciso arrastar um imagem (componente image) num formulario, ou seja qdo clicar sobre a imagem e manter o botao direito precionado preciso que ao arrastar o mouse a imagem acompanhe a posição do ponteiro...

 

Agradeço desde já a ajuda.

 

Valeu

Veja se este código te ajuda

 

 

'Declare
Dim MoveObjeto As Object
Dim MoveForm As Form
Dim MouseX As Long, MouseY As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = 2) Then
        Set MoveObjeto = Picture1
        MouseX = X
        MouseY = Y
    End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = 2) Then
        Picture1.Left = Picture1.Left + X - MouseX
        Picture1.Top = Picture1.Top + Y - MouseY
    End If
End Sub

Valeu Tekki deu certo.....Obrigado..

 

Vou encerrar o post..