Mover MSChart en tiempo de ejecucion

[lena28]

Hola
Alguien sabe como se puede mover una grafica en tiempo de ejecucion, es que yo pensaba k se hacia igual que con cualquier otro control pero parece ser que no.
Mirar este es el codigo, y aparte al MSChart1(......)le pongo la propiedad dragmode a 1

Private Sub Form_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Source.Move X, Y
Source.Left = X
Source.Top = Y

'Abrimos la conexión
Set cnConexion = New ADODB.Connection
With cnConexion
.CommandTimeout = 600
.ConnectionString = sCadConexion
.Open
End With
'Definimos variables
Dim sSQL As String

sSQL = "update imp.bd_Graficas"
sSQL = sSQL + " set xposic_xG =" & X & ""
sSQL = sSQL + " ,xposic_yG=" & Y
sSQL = sSQL + " WHERE xindice_dep =" & Index & ""
MsgBox sSQL
cnConexion.Execute sSQL
End Sub

Help me please

El error que me da es de compilacion:
La declaración del procedimiento no coincide con la descripción del evento